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INFORMATIE . 

De 6502 Kenner is een uitgave van de KIM 
Gebruikersclub Nederland. Deze vereniging 
is volledig onaf hankeli jk, is statutair 
opgericht en ingeschreven bij de Kamer van 
Koophandel en Fabrieken voor Hollands 
Noorderkwartier te Alkmaar, onder nummer 
634305. 

Het doel van de vereniging is het bevorde- 
ren van de kenni su i t wi s se 1 ing tussen 
gebruikers van computers die zijn opge- 
bouwd rond een microprocessor uit de 6500- 
familie. Voorbeelden hiervan zijn onder 
andere: Elektuur EC-65, Commodore 64, 
Apple ][, Elektuur Junior, Atari 600 en 
800. 

De eerder genoemde kennisuit wisseling komt 
onder andere tot stand door 6 maal per 
jaar de 6502 Kenner te publiceren, door de 
organisatie van landelijke bi j eenkomsten 
voor de leden, het inst andhouden van een 
sof t warebibliotheek op cassette, floppy 
disk en papier en het beschikbaar stellen 
van een Bulletin Board. 

Landelijke bij eenkomsten: 

Deze worden gehouden op bij voorkeur de 
derde zaterdag van de maanden januari, 
maart , mei, September en november. De 
exacte plaats en datum worden steeds in de 
6502 Kenner bekend gemaakt in de rubriek 
Uitnodiging . 

Bulletin Board: 

Voor het uitwisselen van mededelingen, het 
stellen en beantwoorden van vragen en de 
verspreiding van software wordt er door de 
vereniging een Bulletin Board beschikbaar 
gesteld. Dit Bulletin Board valt onder de 
ve r ant wo or de 1 i j kh ei d van een van de 
bestuursleden en wordt bediend door een 
zgn. Sysop. 

Software Bibliotheek: 

Voor het beheer van de Software Biblio- 
theek streeft het bestuur er naar zgn. 
Software Coordinators te benoemen. Hierbij 
wordt gedacht aan een drietal coordina- 
tors; eai voor EC-65(K) en Junior met OHIO 
D0S-65D, een voor D0S-65 en een voor 
diverse andere systemen zoals onder andere 
Elektuur Junior. 

Het Bestuur: 

Het bestuur van de vereniging wordt ge- 
vormd door een dagelijks bestuur bestaande 
uit een voorzitter, een secretaris en een 
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penningmeester en een viertal gewone leden. 

Voorzitter : 
Rinus Vleesch Dubois 
Emiliano Zapataplein 2 
2033 CB HAARLEM 
Telefoon 023-330993 

Secretaris : 
Gert Klein 
Diedenweg 119 
6706 CM WAGEN1NGEN 
Telefoon 08370-23646 

Penningmeester : 
Jacques H. Banser 
Haaksbergerstraat 199 
7513 EM Enschede 
Telefoon 053-324137 

Leden: 

Adri Hankel (Bulletin Board) 

Willem Kloosstraat 32 
7606 BB ALMELO 
Telefoon 05490-51151 

Gert van Opbroek (Redact ie 6502 Kenner) 

Bateweg 60 

2481 AN WOUBRUGGE 

Telefoon 01729-8636 

Nico de Vries 
Mari Andriessenrade 49 
2907 MA CAPELLE A/D IJSSEL 
Telefoon 010-4517154 

Ereleden: 

Naast het bestuur zijn er een aantal ere- 
leden, die zich in het verleden bijzonder 
ve r d i en s t e 1 i j k voor de club hebben 
gemaakt : 

Erevoorzitter : 

Siep de Vries 

Ereleden : 

Mevr. H. de Vries van der Winden 
Anton Mueller 
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De 6502 Kenner: 

De 6502 Kenner wordt bij 
verschijnen gratis toege- 
zonden aan alle leden van 
de KIM Gebruikersclub 
Nederland. De kopij voor 
het blad dient bij voor- 
keur van de leden afkom- 
stig te zijn. Alle kopij 
wordt door de redactie op 
bruikbaarheid en publica- 
tiewaarde beoordeeld. Deze 
twee criteria, in samen- 
hang met de actualiteit, 
bepalen of en zo j a 
wanneer het stuk gepubli- 
ceerd wordt. De redactie 
streeft er naar de kopij 
zoveel mogelijk in zijn 
oorspronkeli jke vorm te 
plaatsen, Nederlandstalige 
kopij wordt daarom in 
principe niet naar een 
andere taal vertaald. De 
redactie streeft er naar 
een Neder landst alig blad 
te maken doch het staat de 
auteur vrij een artikel 
geheel of gedeeltelijk in 
een andere taal te schrij- 
ven. 

Helaas kan de redactie, 
noch het bestuur, enige 
aansprakeli jkheid aanvaar- 
den voor de toepassing(en) 
van de g e p ub 1 i c e e r d e 
kopij . 

Verschijningsdata: 

De 6502 Kenner verschijnt 
op de derde zaterdag van 
de maanden februari, 
april, juni, augustus, 
oktober en december. 

Redactie . 

De redactie wordt momen- 
teel gevormd door: 
Gert van Opbroek 

Correspondenten : 
Bram de Bruine 
Antoine Megens 
Nico de Vries 
Rinus Vleesch Dubois 

Redact ieadres: 
Gert van Opbroek 
Bateweg 60 
2481 AN Woubrugge 
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Redactioneel 

Op het moment dat ik dit schrijf, is het 
sinterklaasavond. Vanavond moet het blad 
absoluut klaar want als hij morgen niet 
naar de drukker gaat, dan ben ik bang dat 
u nummer 59 van De 6502 Kenner niet voor 
de kerstdagen in huis hebt, en dat zou ik 
toch jammer vinden. Ik hoop dus, dat u dit 
voor de kerstdagen kunt lezen. 

Allereerst zal ik u dus maar zeer prettige 
kerstdagen en een dito jaarwisseling toe- 
wensen. Ik hoop dat we elkaar weer in 1989 
mogen ontmoeten. Overigens, voor ik het 
vergeet, u hebt allemaal een acceptgiro- 
kaart ontvangen voor de contributie voor 
1989. Wilt u die contributie a.u.b. zo 
spoedig mogelijk overmaken? We zijn name- 
lijk een hoop dingen van plan en het zou 
toch jammer zijn als u dan niet meer lid 
van de club bent. 

Ja, zo aan het einde van een jaar, hoor je 
altijd even terug te kijken naar het afge- 
lopen jaar. Dit was het eerste jaar dat ik 
verantwoordelijk was voor de uitgave van 
De 6502 Kenner (ik denk ook het laatste 
jaar, maar daarover straks meer). Toen ik 
bijna een jaar geleden de redactie op mij 
nam, deed ik dat omdat ik geen alternatief 
zag. Nu echter kan ik u vertellen, dat ik 
het zeer leuk werk vind en dat ik het 
graag nog een poosje blijf doen. Ik ben op 
de ledenvergadering herkozen, dus ik kan 
nog twee jaar redacteur blijven. Daarna 
wil ik de tekstverwerker overdragen aan 
een ander, vooral omdat ik het niet goed 
vind dat een persoon dit ambt vele jaren 
achtereen bekleedt. 

Ik zoek wel ondersteuning bij een andere 
bestuurstaak. In het blad staat ergens een 
oproep voor een bestuurslid. Dit lid zou 
ledenwerving en public relations als taak 
kunnen krijgen. Mijn voorganger deed dit 
naast zijn redacteursschap er ook allemaal 
bij, maar dat gaat, gezien mijn dagelijks 
werk echt niet. Mocht u dus iets voor een 
dergelijke functie voelen, schroom niet, 
meldt u aan. Het is overigens op de zes 
bestuursvergaderingen die we jaarlijks 
houden uitermate gezellig 

Nu dan waarom dit waarschi jnli jk de laats- 
te 6502 Kenner zal zijn. In de ledenverga- 
dering is goedkeuring verleend aan het 
plan processor onaf hanke li j k te worden. 
Dit betekent dus, dat we niet alleen meer 
6502 Kenners zullen zijn, maar ook 8088, 
68000 etc. kenners hopen te worden. Daarom 
wil ik de naam van het blad met ingang van 
de dertiende jaargang wijzigen. U mag zelf 
de nieuwe naam kiezen. Ik heb een prijs- 



vraag uitgeschreven voor het bedenken van 
een nieuwe naam. Als u dus HET idee heeft, 
laat het me weten en misschien verdient u 
dan wel de hoofdprijs. 

Nu over de inhoud van het blad. In deze 
aflevering staat onder ander het tweede 
deel van het PALlen verhaal van Nico de 
Vries. Verder is hij, in het kader van de 
nieuwe doelstelling, begonnen aan een 
serie over PC-compatibles en MS-DOS. U 
vindt dit in de MS-DOS Corner. Ik denk 
dat, al hebt u geen compatible, dit toch 
een interessant artikel kan zijn. 

Verder staat er nog een primeur in het 
blad: een volwaardig Pascal programma. Ik 
bedacht me opeens, dat het systeem dat ik 
als tekstverwerker gebruik, ook de be- 
schikking heeft over een Pascal vertaler. 
Aangezien ik, onder andere door mijn werk, 
een ruime Pascal-ervaring heb (ik droom 
wel eens in Pascal), heb ik eens getracht 
een leerzaam Pascal programma te schrij- 
ven. Dit programma gebruikt, af gezien van 
pointers en set's (voor niet ingewijden, 
vergeet deze kreten) zo'n beetje alle 
mogeli jkheden die Pascal in huis heeft. 
Verder heb ik geprobeerd er uitgebreid 
commentaar bij te schrijven. 

Van Antoine Megens heb ik CHARED ge- 
plaatst. Hiermee kunt u, als u een EPROM- 
programmer hebt, uw eigen character gene- 
rator maken. Wat het pakket mogelijk ook 
interessant maakt, is het feit dat er een 
printerroutine bij is waarmee u de tekens 
in bit-image mode (dus punt voor punt) 
naar een printer stuurt. 

Bram de Bruine zond mij een klein vervolg 
op mijn verhaal over CISC en RISC, hij 
houdt hierin een pleidooi voor een nieuwe 
6502, gebaseerd op RISC-technieken (inte- 
ressante gedachte pagina 0 in regis- 
ters ) . 

Dan als laatste de serie Computers. Deze 
serie ontstond na een discussie op de 
laatste ledenvergadering. Het ging in die 
discussie over het feit dat het niveau van 
het blad voor sommige mensen misschien wat 
aan de hoge kant is. De auteurs zijn vaak 
professionals en ook de nieuwelingen moe- 
ten de kans krijgen uit de groeien naar de 
Kenner die we graag willen zijn. Ik pro- 
beer in de serie computers vanaf de basis 
te beschrijven. Om mensen die de KIM en 
Junior niet meegemaakt hebben ook te leren 
hoe een computer werkt. 

Tenslotte veel hobbyplezier en tot 1989. 
Uw redacteur: Gert van Opbroek. 
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Bij het ontuerp van een microprocessor is men er jarenlang van uitgegaan dat de 
processor uele malen sneller is dan het geheugen . Minimal iseren van het aantal 
geheugentransporten uerd daarom HET ontuerpprincipe. In de jaren zestig nam de 
behoefte toe aan hogere programmeerta 1 en . Dit had als gev/olg dat de micro- 
processor ontuikkelaars probeerden hele complexe instructies te maken , met zo 
min mogelijk geheugentransport . Hen uilde als het ware een pasca 1 - i nstruct i e 
uitdrukken in een enkele machinecode mnemonic. Dit leidde tot operat i ecodes die 
zeer lange en ingeuikkelde beuerkingen uitvoerden. De i nstruct i eset van deze 
microprocessoren (bv 80x86 en 680x0) nam explosief toe, met als gevolg dat de 
microcode Ceen soort hardware operating systeem in de processor) steeds 
i ngeuikkelder uerd. Hen vond dat toen geen enkel probleem, daar sterke 
mini tuar isering het mogelijk maakte om vele transistoren te integreren in een 
enkele chip. Pas sinds kort uorden er vraagtekens geplaatst bij dergelijke 
ingeuikkelde microcodes. Bij metingen is namelijk gebleken dat de meeste 
compilers geen of nauuelijks gebruik maken van deze ingeuikkelde instructies. 
De meest gebruikte instructies zijn: Branch 30V 

Load 35V. 

Store 15V. 

Overigen 20* 

Dit betekend dat 80V van die vernuftig uitgedachte paden in de microcode 
nauuelijks geactiveerd uorden . Jammer dan, zou je denken . Helaas is het nog 
erger: Ook de eenvoudige Load/store en branch i nstruct i es uorden door deze 
m i croprogrammer i ng op een zeer omslachtige en tijdrovende manier uitgevoerd. 
Ergo, als men al die ingeuikkelde instructies vergeet, de hele complexe 
microcode vervangt door eenvoudige snelle transistoren, dan heeft men een 
razendsnelle processor. Door deze eenvoudige opzet is het ook nog eens mogelijk 
om uitgebreid pipelining toe te passen . Dit is een methods om alvast data 
gereed te zetten voor de volgende beuerking, zodat er niet geuacht hoeft te 
uorden. Eventueel kan er dan ook nog parallel geuerkt uorden. Cvergelijk met 
transputer idee) Om de snelheid op te voeren kan men zgn . cachegeheugen 
toevoegen. Dit is zeer snel geheugen bv in de chip geintegreerd , zodat geen 
databustransport noodzakelijk is. Inmiddels zijn dergelijke microprocessoren 
bekend onder de naam RISC-processors, (Reduced Instruction Set) Alle andere 
processoren noemen ue gemakshalve maar CISC CComplex Instruction Set Computer) 
Acorn heeft de ARchiMedes Rise computer ontuikkeld, en dit is uerkelijk een 
razendsnelle computer, uaarvoor veel softuare leverbaar is. De vraag is: "Uord 
het een standaard", of blijkt de IBM/ Intelconf iguratie in de toekomst 
aantrekkel i jker ? 

Semi-Rise met de 6502 ? 
====================== 

Net als men in 
taalstudies kan 
concluderen dat een 
spatie en een 'e' de 
meest gebruikte karakters 
zijn, kan men in een 
computerprogr amma meten 
uat de meest gebruikte 
opcode is. Men kan nog 
verder gaan: kijken uelke 
instructieparen het meest 
voorkomen. Zo heeft men 
eens bij een BBC-computer 
gemeten uelke instructie 
het vaakst volgt na een 
DEX-instructie. Dit bleek 
de BNE instructie te 



De frequence van opcodes die volgen op de DE X-instructie. 
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Sj£? * »*S a Sl ctii J n M-?H, ?al er Borate© si.jn van een loop, waar m«n in hliift ^olann 
met aan de verge 1 ij k i ngsuooruaarde van de BNE instructie is "oldaan! Reduced 9 
instructieset betekend niet dat er geen complexe instructies mogen voorkomen, 
het gaat er om dat de vee 1 gebru i kte instructies SNEL veruerkt uorden. Zo zal 
een b 1 ockmove- i nstruct i e veelal aanuezig zijn, maar door vele niet gebruikte 
opcodes uit de m i crocoder i ng te gooien, word deze blockmove uel veel sneller 
afgehandeld. 20 zou men het i nstruct i epaar DEX/BNE kunnen vervangen door DEXN 
label. De instructies DEX en BNE vervallen dan Mi Die ueggelaten functies 
moeten overgenomen uorden door combinaties van andere instructies. Een 
geschikte microcode kan ervoor zorgen dat de processor enkelvoudige instructies 
niet meer, of niet meer optimaal zal uitvoeren, maar in plaats daarvan 
efficient combinaties van tuee of meer instructies kan veruerken . Zo ontstaat 
een minimaal aantal instructies, uaarmee het nog net mogelijk is de 
oorspronkel i jke instructies te reproduceren , maar dan als een aantal losse 
instructies met de nieuue microcode. Dit lijkt in eerste instantie op CISC, 
maar uord toch RISC door het schrappen van ca . 80* van de oude ueinig gebruikte 
code . 

Terug naar af ? 



De Cmos 6502 kent extra instructies. CCISC-idee) Zou het niet mogelijk zijn 
met de moderne technologie de standaard 6502 opnieuu te ontuerpen, zonder 
ingeuikkelde microcode ? Toen de 6502 uerd ontuikkeld was dat het maximaal 
haalbare concept. Het moet toch mogelijk zijn om de 6502 volgens de 
RISC-f i losof ie te maken . Is al dat gehobby met die 6502 toch niet voor niet 
geueest . . . 



om 



Literatuur: De 6502 kenner nr. 57 
Databus, juni 1986. 



Van de voorzitter 
POSITIEF. 

Zo mag ik de instelling van mijn collega's 
in het bestuur wel noemen. In het bijzon- 
der John van Sprang en Erwin Visschedijk. 
Beiden treden uit het bestuur na vele 
jaren van fijne samenwerking. John de man 
die de financiele zaken bijhield en een 
positieve bijdrage leverde aan de club, 
zelfs in zeer moeilijke perioden (en dat 
mag ook wel eens gezegd worden) bleef hij 
het bestuur trouw. John wij wensen jou nog 
vele jaren plezier in onze club en bedan- 
ken jou voor je bijdrage. Ook je vrouw wil 
ik bedanken voor de gastvrijheid tijdens 
de vele bestuursvergaderingen die wij bij 
jou thuis mochten houden. 

Erwin, jouw bijdrage en in het bijzonder 
de ontwikkeling van het DOS-65 gebeuren is 
een ieder bekend. Altijd stond jij klaar 
om je kennis aan anderen ten dienste te 
stellen, waarvan dan ook gretig gebruik 
werd gemaakt. Jammer dat je vanwege de 
drukke werkzaamheden niet meer beschikbaar 
bent, maar ook jou wens ik een fijne tijd 
toe als clublid met meer tijd voor je 
hobby's. Erwin bedankt voor de prima 
samenwerking, ook Erna wil ik bedanken, 
zij is een eerste klas gastvrouw en dat 



hebben wij ondervonden tijdens de vele 
bestuursvergaderingen bij jullie thuis. 

Ik wens de opvolgers van beide bovenge- 
noemde heren zeer veel sterkte toe, maar 
ik ben er van overtuigd dat ook zij zullen 
aarden in het bestuur en naar ik wens, nog 
vele jaren met ons de club zullen runnen. 

Alle leden wens ik een plezierige feestda- 
gen toe, en ik hoop u een hand te kunnen 
schudden op de bijeenkomst op 21 januari 
te Krommenie. 

Uw voorzitter, 

Rinus Vleesch Dubois. 

Bestuurslid gezocht . 

Het bestuur zoekt iemand die zitting wil 
nemen in het bestuur. De taak die het 
bestuur voor deze functionaris in gedach- 
ten heeft is actieve ledenwerving en 
public relations. 

Indien er mensen zijn die deze belangrijke 
functie op zich willen nemen, willen zij 
zich dan bij een van de be stuur sleden 
melden? Op de ledenvergadering in Kromme- 
nie kan dan een verkiezing gehouden wor- 
den. 
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De ledenvergaderlng op 19-ll-198fl 

Door Gert van Opbroek 

Dit stukje moet niet gezien worden als het 
officiele verslag van de vergadering, dat 
wordt namelijk door de secretaris gemaakt, 
maar meer als een overzicht van de belang- 
rijkste besluiten. 

Ik vond het aantal mensen dat aanwezig was 
op de vergadering en de bijeenkomst rede- 
lijk tot goed. Over het algemeen zijn er 
op bijeenkomsten ruim twintig man en dat 
was nu ook het geval. De stemming op de 
vergadering was goed te noemen en ik ben 
dan ook van mening dat we een goede verga- 
dering gehad hebben. Nu in het kort even 
de belangrijkste punten: 

Doelstelling van de club en beleidsplan 
1989+ . 

De vergadering ging accoord met de wijzi- 
ging van de doelstellingen zoals in nummer 
57 geformuleerd is. Dit betekent dat de 
volgende zaken ingevuld gaan worden: 

Het blad krijgt met ingang van de 
dertiende jaargang een nieuwe naam en 
de inhoud van het blad zal aansluiten 
bij de nieuwe doelstelling. 

- De nieuwe doelstelling zal op de 
inf ormatiepagina vermeld worden. 

Het bestuur bereidt een eventuele 
naamsverandering en wijziging van de 
statuten voor. Deze wijzigingen zul- 
len conform de statuten t.z.t. aan de 
leden voorgelegd worden. 

Er zal een uitgebreide ledenwerf actie 
gestart worden om de club, met zijn 
nieuwe doelstelling in brede kring 
bekend te maken. 

Concept begroting 1989. 

De begroting voor 1989, zoals opgesteld 
door de penningmeester werd aangenomen. 
Deze begroting is in deze 6502 Kenner 
opgenomen . 

Verkiezing van kascontroleccmissies. 

De kascontrolecommissies voor 1988 en 1989 
bestaan weer uit twee leden. Tot mijn 
grote schaamte, weet ik niet de namen van 
alle commissieleden. 

Huishoudelijk reglenent. 

Het huishoudelijk reglement, zoals voorge- 



steld door de commissie huishoudelijk 
reglement is aangenomen en dus in werking 
getreden. Dit reglement is afgedrukt in 
nummer 58 van de 6502 Kenner. De vergade- 
ring kwam met het voorstel artikel 11 uit 
het voorstel inderdaad te gebruiken voor 
het beschrijven van het bestaan en het 
functioneren van de kascontrolecommissie. 
De vergadering wilde bovendien vastleggen 
dat deze commissie bestaat uit twee leden 
waarvan er ieder jaar (Ski lid aftreedt. De 
commissie zal dit punt verder uitwerken en 
proberen deze wijziging op de bijeenkomst 
van januari aan de leden voor te leggen. 

Komende en gaande be stuurs leden. 

De door het bestuur voorgedragen kandida- 
ten zijn zonder t egenkandidaten verkozen. 
De vacature Visschedijk is niet ingevuld. 
Het bestuur streef t ernaar deze vacature 
op de bijeenkomst van januari toch in te 
vullen. Binnen het bestuur bestaat de 
behoefte een bestuurslid te belasten met 
het doen van Public Relations en het wer- 
ven van leden. Degene(n) onder de leden 
die deze taak als een uitdaging zien wordt 
(worden) verzocht contact op te nemen met 
een van de be stuursleden. 

Rondvraag . 

Naar aanleiding van een discussie over de 
mensen die we met onze club aan willen 
spreken en de doelstelling van de club 
kwam uit de vergadering een vraag over het 
niveau van de clubactiviteiten en de in- 
houd van het blad naar voren. De vrager 
maakte zich zorgen over het feit dat een 
deel van de leden een hoog kennisniveau op 
computergebied hebben en een ander deel 
als beginners beschouwd moet worden. Hij 
vroeg zich, terecht, af de beginners in 
staat gesteld zouden worden ook door te 
groeien naar een hoger niveau. 

Daar deze vraag voor een deel betrekking 
heeft op de inhoud van het blad, denk ik 
dat het goed is als ik daar, als redac- 
teur, een antwoord op tracht te geven. 

Ik ben mij er inderdaad van bewust dat het 
niveau van de artikelen in het blad vaak 
vrij hoog is. Dit heeft er alles mee te 
maken dat deze artikelen meestal geschre- 
ven worden door professionals op het ge- 
bied van de automat isering. 0m ook tege- 
moed te komen aan de leden die dit niveau 
nog niet hebben zal ik ervoor zorgen dat 
er in de 6502 Kenner een aantal pagina's 
met artikelen voor juist deze mensen opge- 
nomen wordt. Deze rubriek start in deze 
uitgave . 
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* * 

* * 

* KIM GEBRUIKERS CLUB NEDERLAND * 

* * 

* * 
************************************************************************ 



Krimpen a/d ijssel 14 november 1988 
BEGROTING 1989 



BATEN : 



Contributie 300 * f. 50,= 


f . 


15000,00 




t • 




Bijeenkomsten 


f. 


750,00 


Reclame 


f . 


900,00 




f . 


950,00 


totaal 




- + 




f . 


17.700,00 


LAS TEN : 






6502 KENNER 6* f. 2500,= 


f . 


15000,00 


Afschrijving inventaris 


f . 


2500,00 


Sysop 


f . 


1200,00 


Bestuur kosten 


f . 


1500,00 


Reclame - ledenwervingsactie 


f . 


1500,00 


totaal 




+ 




f. 


21.700,00 


verschil 


f. 


-4000,00 


Tekort voor het jaar 1989 


f . 


+ 

(4.000,00) 


totaal 


f. 


+ 

17.700,00 



De begroting voor het boekjaar 1989 zal een te kort geven van F 4000,= 
Dit komt o.a. : 

- Doordat het aantal leden dit jaar met 125 is verminderd. 

- verkoop van losse kimkenners zal af nemen. 

- dos-65 is verzadigd. 

De verliezen van het boekjaar 1989 kunnen door de algemene reserve 
worden opgebracht. 

Voorstel om de club na 1989 te behouden is o.a. : 

- Een goede leden werfactie. 

- Meer reclame in de Kim Kenner. 

- Nieuwe projecten opstarten. 

- Veel medewerking van de LEDEN. 

- Een nieuw beleid. 
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Uitnodiging 




© 



Portier 

Portier 
Portier 
Gateman 
Portero 



Ontvangstcentrum 

Salle de reception 
Empfangsraum 
Reception building 
Sala de recepcion 



Kantoor 

Bureaux 
Buros 
Offices 
Oficmas 



®Centraal magazijn 
Magasm central 
Zentrallager 
Central warehouse 
Almacen central 

^^aZBTreinverb Amsterdam-Alkmaar(haif uurdienst) 

Chemin de fer Amsterdam-Alkmaar (toutes les demi-heures) 
Eisenbahn Amsterdam-Alkmaar (jede halbe Stunde) 
Railway Amsterdam-Alkmaar (half hour service) 
Linea ferroviaria Amsterdam-Alkmaar (cada media hora) 



Uitnodiging voor de clubbi j eenkomst 

Datum: Zaterdag 21 januari 1988 
Locatie: Nieuwe kantine FORBO-Krommenie 

Industrieweg 12 

1566 JP Assendelft 
Telefoon: 075-291911 

Entree: fl.10, — voor het gedeelte na 
11:00 uur 

Routebeschrijving 

Per auto: 

1. Uit de richting Amsterdam: Coentunnel 
door en de Coentunnelweg helemaal afrij- 
den. Aan het einde rechtsaf (water aan de 
linkerzi j de) . Dan de le afslag rechtsaf, 
richting Uitgeest-Alkmaar. Doorrijden tot 
aan de stoplichten. Linksaf de spoorbaan 
over . 

2. Na 75 meter linksaf: Industrieweg. 
Links aanhoudende komt men dan op het 
FORBO-terrein. 

3. Uit de richting Alkmaar: Snelweg 
Alkmaar-Haarlem. Afslag Uitgeest-Zaandam. 
Bij kruising linksaf. Bij de 3e stoplich- 
ten rechtsaf, de spoorbaan over. Verder 
volgens punt 2. 

Per trein: 

Station Krommenie-Assendelf t. Rechtsaf tot 
over de spoorwegovergang. Zie verder punt 
2. 

Programma: 

9:30 Zaal open. Ontvangst met koffie. 
10:00 Opening door de voorzitter en 
verwelkoming door de gastheer:Co 
Filmer . 

10:10 Diashow over FORBO-Krommenie. 

10:30 Ledenvergadering 
Agenda: 

- Behandeling jaarverslag 1988 

- Bestuursverkiezing 

- Wijziging Huish. Reglement: 
regelen kascontrole commisssie. 

10:45 Koffiepauze. 

11:00 Spreekbeurt van Nico de Vries 
over PC-compatibles en/of MS- 
DOS. 

12:00 Forum en markt, naam van het 
clubblad 

12:30 Lunch, aangeboden door FORBO- 

Krommenie . 



Aansluitend het informele ge- 
deelte bedoeld om kennis, erva- 
ring en Public Domain software 
uit te wisselen. Breng daarom 
ook uw systeem mee. 
17:00 Sluiting. 

Attentie 

Het is ten strengste verboden illegale 
kopie^n te verspreiden. Aan personen die 
deze regel overtreden, zal de verdere 
toegang tot de bij eenkomst ontzegd worden. 
Breng alleen software mee die u legaal in 
uw bezit heeft. Het bestuur aanvaart geen 
enkele aansprakelijkheid voor de gevolgen 
van het in bezit hebben van illegale soft- 
ware . 
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Getallen (Peel 2) 

Door Gert van Opbroek 
Bateweg 60 
2481 AN Woubrugge 

Inleiding . 

In de eerste af levering van getallen heb- 
ben we ons bezig gehouden met wat algemene 
getaltheorie en de gehele getallen. In 
deze aflevering zullen de drijvende komma 
getallen nader bekeken worden. 

Hoewel er diverse manieren zijn om een 
drijvende komma getal in een computer weer 
te geven, zullen we ons voornamelijk bezig 
gaan houden met die representaties die 
momenteel als standaard beschouwd worden, 
de IEEE single en IEEE double precision 
floating point numbers. Deze representatie 
is, met een definitie voor een standdaard 
voor de rekenkundige operaties en de fout- 
afhandeling opgesteld door de werkgroep 
P754 van de IEEE (Institute of Electrical 
and Electronical Engeneers). De IEEE stan- 
daard wordt onder andere door de moderne 
floating point coprocessors 80287/80387 en 
68881/68882 ondersteund. 

Getallen kleiner dan 1. 

In de vorige aflevering is verteld dat het 
gehele getal 123 als volgt opgevat moet 
worden : 

123 = 

1 * 10 tot de macht 2 + 

2 * 10 tot de macht 1 + 

3 * 10 tot de macht 0 

Evenzo geldt voor 1011: 

1011 = 

1 * 2 tot de macht 3 + 
0*2 tot de macht 2 + 
1 * 2 tot de macht 1 + 
1 * 2 tot de macht 0 

Deze notatie kan eventueel uitgebreid 
worden met negatieve exponenten voor de 
decimale resp. binaire fractie: 

1.23 = 

1 * 10 tot de macht 0 + 

2 * 10 tot de macht -1 + 

3 * 10 tot de macht -2 

1.011 = 

1*2 tot de macht 0 + 

0*2 tot de macht -1 + 

1 * 2 tot de macht -2 + 

1 * 2 tot de macht -3 



Drijvende komma getallen 

Een volgende stap is het invoeren van een 
exponent in de notatie. In dat geval wordt 
het getal 123.45 geschreven als: 

123.45 = 1.2345E+2 

Hierbij wil de toevoeging E+2 zeggen: 
Vermenigvuldig het getal 1.2345 met tien 
tot de macht 2, dus met honderd. 

Bekijken we het getal 1.2345E+2 nogmaals, 
dan kunnen het getal verdelen in twee 
delen. In de eerste plaats het deel 
1.2345. Dit deel noemen we de mantissa van 
het getal. In deze mantissa staat de deci- 
male punt meteen achter het eerste cijfer. 
Dit wil zeggen dat het getal genormeerd 
is. Het tweede deel dat we kunnen onder- 
scheiden is het deel E+2. Dit noemen we de 
exponent van het getal. Omdat in het voor- 
beeld in de exponent de machten van tien 
aangegeven worden, heet het grondtal van 
de exponent 10. 

Voor getallen kleiner dan 1, krijgen we 
een negatieve exponent. Bi jvoorbeeld: 

1.2345E-2 = 0.012345 

dit wil zeggen: vermenigvuldig 1.2345 met 
tien tot de macht min 2. Dit is hetzelfde 
als delen door tien tot de macht plus 2. 
Als laatste kan er voor een getal nog een 
voorteken staan. Dit voorteken is + of - 
en geef t aan of het getal groter of klei- 
ner dan nul is. Het weglaten van het voor- 
teken betekent dat het getal 0 of groter 
is . 

Binaire getallen. 

Bij een binaire representatie van drijven- 
de komma getallen is de bovengenoemde 
opdeling ook te maken. Als we naar de IEEE 
notatie kijken, dan zien we het volgende: 

Een voorteken van 1 bit. Is dit bit 
geset, dan is het getal negatief 

Een mantissa van 23 bits (single) of 
52 bits (double) 

Een exponent van 8 bits (single) of 
11 bits (double) 

Uiteraard zijn zowel de mantissa als de 
exponent in een binaire vorm weergegeven. 
Bovendien geeft de exponent de macht van 
twee aan waarmee het getal vermenigvuldigd 
moet worden, het grondtal van de exponent 
is dus twee. 
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Op mijn 68000 wordt een IEEE drijvende 
komma getal als volgt in het computerge- 
heugen opgeslagen: 

Bit: 1 09876543 21098765432109876543210 

S EEEEEEEE MMMMMMMMMMMMMMMMMMMMMMM 

S: Tekenbit (bit 31) 

E: Exponent (bit 23 t/m 30) 

M: Mantissa (bit 0 t/m 22) 

NB. Op een 68000 is het gebruikelijk dat 
het meest significante byte op het laagste 
adres staat. In andere voorbeelden zullen 
we zien dat dit niet altijd het geval is. 

Weergegeven is het single precision floa- 
ting point number, het double precision 
floating point number is analoog geco- 
deerd. 

Het tekenbit staat dus in het meest signi- 
ficante bit, daarna volgt de exponent en 
daarna de mantissa. 

Van de mantissa worden 23 resp. 52 bits 
weergegeven, toch is de nauwkeurigheid 24 
resp. 53 bits. Hoe zit dat? Welnu, dat 
heeft met de manier waarop een getal ge- 
normeerd wordt te maken. Dat gaat als 
volgt: De exponent is zodanig dat het 
voorste bit van een getal altijd een 1 is. 
Bovendien staat de decimale punt meteen 
achter deze I. Omdat het voorste bit al- 
tijd een 1 is, hoeven we deze in een 
genormeerd getal eigenlijk ook niet aan te 
geven, hij is toch altijd 1. Welnu, dat is 
precies wat er gedaan wordt, het voorste 
bit van de mantissa is in een genormeerd 
getal altijd een 1 en wordt daarom maar 
weggelaten. 

Enkele voorbeelden. 

Het is vaak een leuke bezigheid zelf eens 
te onderzoeken hoe iets op je eigen compu- 
ter gedaan wordt. In navolging van het 
maandblad mc (ref. 2), worden een paar 
programma's gegeven waarmee de afzonder- 
lijke bits van een floating point getal 
afgedrukt kunnen worden. Het zijn twee 
verschillende programma's: 

Programma 1 . 

Programma 1 is een Pascal-programma. Dit 
programma is geschreven in standaard (ISO) 
Pascal (ref 3) en zou dus ook op bijvoor- 
beeld een D0S-65 systeem gebruikt kunnen 
worden. Het afgedrukte programma is getest 
op een Apple II compatible met Z80, CP/M 
en Turbo Pascal. 



De genoemde combinatie van hard- en soft- 
ware slaat drijvende komma getallen niet 
volgens de IEEE standaard op. Een getal 
wordt in dit geval opgeslagen in zes bytes 
waarvan het meest significante byte op het 
hoogste adres ligt. Bovendien is de volg- 
orde van mantissa en exponent omgedraaid 
ten opzichte van de IEEE standaard. Een 
verdere uitleg over het programma staat in 
een aparte paragraaf. 

Programma 2. 

Programma 2 is geschreven in de program- 
meertaal C volgens het boek van Kernigan 
and Ritchie (Ref. 4). Dit programma is 
gebruikt op een mc68000 onder het opera- 
ting systeem 0S9/68k met de bijbehorende 
Microware C-compiler. Deze combinatie van 
hard- en software gebruikt drijvende komma 
getallen volgens de IEEE standaard. Boven- 
dien wordt het meest significante byte op 
het laagste adres opgeslagen. Ook van dit 
programma staat de uitleg in een aparte 
paragraaf . 

Met de genoemde programma's zijn enkele 
voorbeelden bekeken. Een overzicht van 
deze voorbeelden staat in tabel 1. 

Kijken we naar deze voorbeelden, dan val- 
len ons enkele dingen op: 

Het getal nul wordt in beide gevallen 
weergegeven met allemaal nullen. Dit 
is altijd zo (per definitie) en is 
gedaan om op eenvoudige wijze op dit 
resultaat te kunnen testen. 

Onder CP/M heeft een floating point 
getal een lengte van 6 byte, onder 
0S9 een lengte van vier byte. Onder 
0S9 wordt echter ook een double pre- 
cision versie ondersteund met een 
lengte van 8 byte, onder CP/M is dit 
niet het geval. 

Beide systemen hebben 8 bits inge- 
ruimd voor de exponent van het getal, 
bij CP/M staat de exponent echter 
achter de mantissa, terwijl hij onder 
0S9 er voor staat. Het tekenbit van 
het hele getal staat vooraan in het 
getal. De overige 23 resp. 39 bits 
bevatten de mantissa. 

De mantissa is voor gelijke getallen 
op beide systemen gelijk, alleen 
heeft CP/M meer bits, dus een hogere 
nauwkeurigheid (meer cijfers achter 
de komma). 

- Hoewel het drijvende komma getal en 
de mantissa gelijk is, ziet de expo- 
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nent er op beide systemen verschil- 
lend uit. Dit heeft met de def initie 
van een genormeerd getal te maken en 
met de binaire constante die bij de 
exponent opgeteld is. Hoe dit precies 
in elkaar zit, wordt zo uitgelegd. 

In beide gevallen verschillen posi- 
tieve en negatieve getallen alleen in 
het tekenbit. Een drijvende komma 
getal is dus weergegeven als Signed 
Magnitude (zie deel 1). 

Verdere beschrij ving. 

Zoals in de vorige paragraaf al is opge- 
merkt, geeft het tekenbit aan of het getal 
positief of negatief is. Het veranderen 
van het tekenbit maakt van een negatief 
getal een positief getal of andersom. Dit 
gaat dus net zo als bij de normale deci- 
male getallen. Een getal bestaat uit een 
teken (sign) en iets dat de grootte (mag- 
nitude of absolute waarde) aangeeft, van- 
daar de term Signed Magnitude. 

Bekijken we nu het getal 1: 

Als we het getal 1 in machten van twee 



gaan ontbinden dan krijgen we het volgen- 
de: 

1=2 tot de macht 0 

Dit getal zou er dus als volgt uit kunnen 
zien: 

Sign = 0 

Mantissa = 10000000 00000000 00000000 
Exponent = 0000000 

Dus als 0 00000000 1.000000000000000000 

Bij de lEEE-notatie staat de decimale punt 
altijd meteen achter het eerste bit. Omdat 
het eerste bit altijd een 1 is, wordt dit 
bit ook maar weggelaten. 

Omdat het voor het rekenen met floating 
point getallen (zie deel 3) lastig is als 
er grote verschillen tussen positieve en 
negatieve exponenten zijn, wordt de expo- 
nent weergeven in de Ecxess notatie (zie 
deel 1). In de IEEE notatie is dit de 
excess 127 notatie waarbij het getal 127 
bij de exponent opgeteld wordt. Onder CP/M 
is dit het getal 128 en spreken we van de 
excess 128 notatie. 



OS9/68k met Microware C 



FP 

0.0000e+0 
5.0000e-l 

-5.0000e-l 
1.0000e+0 

-1 .0000e+0 
2.0000e+0 

-2.0000e+0 
3.0000e+0 

-3.0000e+0 
1 .OOOOe+6 
1 .00OOe-6 
8.3000e-l 
1.2345e+0 



0.0000e+0 
5.0000e-l 

-5.0000e-l 
1 .0000e+0 

-1.0000e+0 
2.0000e+0 

-2.0000e+0 
3.0000e+0 

-3.0000e+0 
1 .0000e+6 
1.0000e-6 
8.3000e-l 
1.2345e+0 



HEX 
0 

3f000000 
bfOOOOOO 
3f800000 
bf800000 
40000000 
C0000000 
40400000 
c0400000 
49742400 
358637bd 
3f547ael 
3f9e0419 



BIN 

0 00000000 
01111110 
01111110 
01111111 
01111111 
10000000 
10000000 
10000000 
10000000 
10010010 
01101011 
01111110 
01111111 



00000000000000000000000 
00000000000000000000000 
00000000000000000000000 
00000000000000000000000 
00000000000000000000000 
00000000000000000000000 
00000000000000000000000 
10000000000000000000000 
10000000000000000000000 
11101000010010000000000 
00001100011011110111101 
10101000111101011100001 
00111100000010000011001 



Apple 11 (CP/M) met Turbo Pascal 



000000000000 
000000000080 
800000000080 
000000000081 
800000000081 
000000000082 
800000000082 
400000000082 
C00000000082 
742400000094 
0637bd05af6d 
547ael47ae80 
le0418937481 



0 000000000000000000000000000000000000000 

0 000000000000000000000000000000000000000 

1 000000000000000000000000000000000000000 

0 000000000000000000000000000000000000000 

1 000000000000000000000000000000000000000 

0 000000000000000000000000000000000000000 

1 000000000000000000000000000000000000000 

0 100000000000000000000000000000000000000 

1 100000000000000000000000000000000000000 
0 111010000100100000000000000000000000000 
0 000011000110111101111010000010110101111 
0 101010001111010111000010100011110101110 
0 001111000000100000110001001001101110100 



00000000 
10000000 
10000000 
10000001 
10000001 
10000010 
10000010 
10000010 
10000010 
10010100 
01101101 
10000000 
10000001 
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Behalve het verschil van 1 t.g.v. het 
verschil tussen excess 127 en excess 128 
blijkt er in de exponent nog een verschil 
van 1 te zijn. Dit heeft te maken met de 
definitie van een genormeerd getal. In een 
lEEE-getal staat de komma meteen achter 
het eerste bit, onder CP/M staat de komma 
voor het eerste bit. Dus: 

5.0000E+0 = 



IEEE: 
sign 
mantissa 
exponent 

CP/M: 
sign 

mantissa 1 
exponent 



= 0 



1 .01000000000000000000000 
10000001 



.101000000000000000000000. 
10000011 (3) 



Daar het voorste bit van de mantissa 
weggelaten wordt, zien de getallen er als 
volgt uit : 

IEEE: 

0 10000001 01000000000000000000000 
CP/M: 

0 0100000000000000000000.. 10000011 
O ve r f 1 ow/ Unde r f 1 ow 

Als een getal, bijvoorbeeld in een 
berekening, in absolute waarde te groot 
wordt, dan heet dit overflow. Wordt het 
getal te klein, dan is dit underflow. 

In de lEEE-specif icatie voor single preci- 
sion is aangegeven dat de exponent in een 
genormaliseerd getal ongelijk aan nul 
altijd tussen -127 en +128 (dus 0 < expo- 
nent < ff) ligt. Is de exponent 0, dan 
wil dit zeggen dat het getal te klein is 
geworden om nog in genormeerde vorm weer 
te geven. Het getal kan dan vaak nog wel 
weergegeven worden, alleen moet er aan de 
mantissa geen bit 1 toegevoegd worden. 

Voorbeeld: 

0 00000001 00000000000000000000000 = 
sign = 0 

mantissa = 1.00000000000000000000000 
exponent = -126 

kortom: 2 tot macht 0 * 

twee tot de macht -126. 

Wordt dit getal door twee gedeeld, dan 
krijgen we: 

0 00000000 10000000000000000000000 



sign = 0 

mantissa = 1.0000000000000000000000 
exponent = -127 

kortom: 2 tot de macht 0 * 

2 tot de macht -127 

Delen we dit getal nogmaals door twee, dan 
krijgen we: 

0 00000000 01000000000000000000000 
sign = 0 

mantissa = 0.1000000000000000000000 
exponent = -127 

kortom: 2 tot de macht -1 * 

2 tot de macht -127 

Wordt het getal nog kleiner, dan staan er 
steeds meer nullen vooraan in de mantissa 
en komen we tenslotte bij de representatie 
van het getal nul. Hoewel IEEE voorziet in 
een manier om getallen weer te geven die 
kleiner zijn dan het kleinste getal dat 
nog in genormeerde vorm weergegeven kan 
worden, zijn er toch getallen die zo klein 
zijn dat ze niet weergegeven kunnen wor- 
den. Dit heet Underflow. 

Een exponent +128 (allemaal enen) heeft 
ook een bijzondere betekenis. Dit zijn de 
zogenaamde NANs = Not A Number (geen ge- 
tal). Verder is een getal waarvan in de 
mantissa en de exponent alle bits geset 
zijn de representatie van oneindig. Het 
tekenbit geeft hierbij aan of er +oneindig 
of -oneindig bedoeld wordt. In de IEEE 
specificatie is vastgelegd wanneer een 
berekening een NAN of oneindig oplevert. 

Als van het resultaat van een berekening 
de absolute waarde groter wordt dan het 
grootste getal dat in een floating point 
formaat opgeslagen kan worden, dan noemen 
we dit Overflow. In de praktijk zal dit 
altijd met oneindig aangegeven worden. 

Samenvatting. 

In dit deel is de manier waarop in een 
computer een drijvende komma getal weerge- 
geven wordt behandeld. Aan de hand van 
enkele voorbeelden is dit nog wat verder 
uitgewerkt . 

Als bijlage bij dit artikel zijn een twee- 
tal programma's gegeven waarmee men zelf 
zijn of haar systeem kan onderzoeken. 
Mocht u nog een opslagmethode vinden die 
afwijkt van de twee voorbeelden die ik 
gegeven heb, dan wil ik daar graag over 
ingelicht worden. 
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Programma 1. 

1 PROGRAM Float (input, output ) ; 

3 (* 

4 * Convert a floating point number to an hexadecimal and a binary bit array 

6 * This program is tested on an Apple 11 with CP/M and Turbo Pascal 

7 * 

8 * Author Gert van Opbroek 20/11/88 

9 * 



* This program was adapted from mc november 1988 page 79 



10 

11 *) 
12 

13 CONST C_fp_bytes =6; (* Implementation dependent *) 

14 

15 TYPE T byte = CHAR ; 

16 Tnjyte_array = PACKED ARRAY [ 1 . .C_f pjbytes] OF T_byte; 

18 (* 

19 * T_conversion is used for the conversion of a real 

20 * to an byte array. 

21 *) 
22 

23 T_conversion = RECORD 

24 CASE BOOLEAN OF 

25 TRUE: (fpnum : REAL); 

26 FALSE: (1 int : T byte array) 

27 END; _ ~ ~ 
28 

29 VAR number : T conversion; 

30 i : INTEGER; 

31 (* 

32 * Hex writes one byte in hexadecimal notation 

33 *) 
34 

35 PROCEDURE Hex(h : T byte); 

36 - 

37 VAR x : INTEGER; 
38 

39 BEGIN 

40 x := ord(h) D1V 16 ; 

41 IF x > 9 

42 THEN write(chr (x+55)) 

43 ELSE write (chr (x+48)); 
44 

45 x := ord(h) MOD 16; 

46 IF x > 9 

47 THEN write(chr (x+55)) 

48 ELSE write(chr (x+48)) 

49 END; 
50 

51 (* 

52 * Bin writes one byte in binary notation 

53 *) 
54 

55 PROCEDURE Bin(h : T byte); 

56 ~ 

57 VAR x,i : INTEGER; 
58 

59 BEGIN 

60 x := ord(h); 

61 FOR i := 1 to 8 DO 
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62 BEGIN 

63 x := x * 2; 

64 IF x > 255 

65 THEN writeC 1') 

66 ELSE write('O'); 

67 x := x MOD 256 

68 END; 

69 END; 
70 

71 BEGIN 

72 WHILE TRUE DO 

73 BEGIN 

74 write('Please give a floating point number: *); 

75 readln (number .fpnum) ; 
76 

77 writeln('FP-f ormat : ' .number .fpnum) ; 
78 

79 (* 

80 * MS byte on lowest address (implementation dependent 

81 *) 
82 

83 writ e('HEX-f ormat: '); 

84 FOR i := C fp bytes DOWNTO 1 DO 

85 BEGIN 

86 Hex(number .l_int [i] ) ; writeC ') 

87 END; 

88 writeln; 
89 

90 writ e('BlN-f ormat: '); 

91 FOR i := C fp bytes DOWNTO 1 DO 

92 BEGIN 

93 Bin(number.l int[i]); writeC ') 

94 END; 

95 writeln 
96 

97 END; 

98 END. 

Programma 2. 

1 #include <stdio.h> 

2 #define void int 

3 

4 /* 

5 * Convert a floating point number to an hexadecimal and a binary bit array 

6 * 

7 * This program is tested on a mc68000 with OS9/68k and Microware C. 

8 * 

9 * Author Gert van Opbroek 21/11/88 

10 * 

11 * This program is adapted from mc november 1988 page 79 

12 */ 
13 

14 /* 

15 * Bin prints a floating point number in binary notation 

16 */ 
17 

18 void Bin(f) 

19 long *f; 

20 

21 { 

22 int i,k; 

23 printf ("BIN-f ormat: "); 

24 for (i = 0;i < sizeof (float) * 8;i++) { 
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25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 



} 

main( ) 
{ 



k = ((*f & 0x80000000) != 0); 
printf ("%ld",k); 
*f «= 1 ; 



float number; 
long *pointer; 
pointer = &number; 
while(l) 
{ 

printf ("Please enter floating point number: "); 
scanf ("%f",&number); 

printf ("\nFP-f ormat: %g, \nHex-f ormat : %8x\n" .number, *pointer) ; 
Bin(pointer) ; 



} 



printf ("V); 



Beschrijving van de programma' s . 
1 : Programma 1 : Het Pascalprogr, 



Dit programma is geschreven in ISO-Pascal 
en getest onder CP/M met Turbo Pascal. 
Voor DOS-65 is het noodzakelijk d.mv. een 
compilerswitch aan te geven dat in namen 
underscores ('_') toegestaan zijn. 

Het hoof dprogramma start op regel 71. In 
een WHILE lus worden getallen ingegeven en 
in drie formaten afgedrukt. Aangezien de 
conditie in de WHILE altijd true (waar) 
is, wordt de lus dus oneindig vaak doorlo- 
pen. Het einde van de WHILE lus wordt 
gevormd door de END op regel 97. 

Nadat het floating point getal op regel 74 
ingelezen is, wordt hij in het floating 
point formaat afgedrukt op regel 77. 

In regel 84 t/m 87 wordt voor elk byte in 
het getal de routine Hex aangeroepen die 
een byte in HEX-formaat afdrukt. In de 
constante C fp_bytes staat het aantal 
bytes dat bek"eken moet worden terwijl de 
FOR lus met het sleutelwoord DOWNTO aan- 
geeft dat de index van de lus iedere keer 
verlaagd moet worden. 

Regel 90 t/m 94 bevatten een FOR lus die 
ervoor zorgt dat de bytes in een binaire 
vorm afgedrukt worden. 

Pascal is heel streng in zijn types. Dit 
wil zeggen dat we zonder speciale maatre- 
gelen niet zondermeer de bytes waaruit een 



floating point getal kunnen benaderen. Em 
van de methodes om dit netjes te doen is 
door middel van een dat ast ructuur . Deze 
datastructuur is in de TYPE declaratie in 
regel 12 t/m 27 gedefinieerd (in Pascal 
termen: gedeclareerd). De constructie met 
CASE in het record geeft zogenaamde vari- 
anten aan. De inhoud van het record kan 
opgevat worden als een floating point 
getal door hem te benaderen met: 

number .fpnum 

Ook kan men dit getal als een byte ARRAY 
opvatten door hem te benaderen met: 

number. 1 int[i] 

waarbij i de index in de array is. 

Aan de procedure Hex uit regel 35 t/m 49 
wordt de waarde van het byte dat we hexa- 
decimaal af willen drukken als parameter 
meegegeven. Verder wordt er binnen de 
procedure een lokale variabele x gedecla- 
reerd die alleen binnen deze procedure 
bestaat . 

In regel 40 worden de hoge vier bits beke- 
ken die in regel 42 of 43 als hexadecimaal 
teken afgedrukt worden. 
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Ook aan de procedure Bin uit regel 59 t/m 
69 wordt de waarde van het byte als para- 
meter meegegeven. Bovendien worden de 
lokale variabelen x en i in regel 57 gede- 
clareerd. 

In de lus in regel 61 t/m 68 wordt steeds 
het voorste bit van het byte geisoleerd en 
afgedrukt. Dit wordt gedaan door het getal 
iedere keer met 2 te vermenigvuldigen. Is 
dit resultaat groter dan 255, dan is het 
bit geset, anders is het bit clear. Door 
van het resultaat de rest van een deling 
door 256 (MOD) te nemen, houden we de lage 
bits over voor de volgende doorgang door 
de lus. 

2: Programma 2: Het C programma 

Ook in programma 2 zien we de while lus. 
In C geeft het getal 1 true aan dus hierin 
wijkt het programma niet af van de versie 
in Pascal. 

In de gebruikte C implementatie heeft een 
long (4 byte integer) dezelfde lengte als 
een float. Door middel van het definieren 
van een pointer wordt de float omgezet in 
een long. In C mag dit, waarbij de ge- 



bruikte C compiler wel een waarschuwing op 
regel 35 geeft. in deze regel wordt het 
startadres van de float toegekend aan de 
pointer op een long. 

In regel 40 zien we dat C een long af kan 
drukken in Hex-formaat zonder dat daar 
verdere bewerkingen voor nodig zijn. 

De functie Bin uit regel 18 t/m 29 is van 
dezelfde opzet als in het Pascal program- 
ma, alleen is de for lus nu in de functie 
opgenomen. Bovendien wordt er gebruik 
gemaakt van het feit dat true (waar) aan- 
gegeven wordt met een 1 en false (onwaar) 
met een nul. 

Ref erenties. 

1: Hagen Vttlzke: Fliesskomma-Arithmetik 
und lEEE-Spezif ikation Teil 1; mc 
10/1988 pag. 123. 

2: Hagen Vttlzke: Fliesskomma-Arithmetik 
und IEEE-Spezif ikation Teil 2; mc 
11/1988 pag. 78. 

3: Jensen and Wirth: Pascal User Manual 
and Report, Third Edition. 

4: Kernigan and Ritchie: The C Program- 
ming Language 



PRIJSVRAAG: Wie verzlnt een nleuwe naam voor het blad? 

De huidige naam van het blad is De 6502 Kenner. Deze naam is nu al weer zo'n jaar of zes 
in gebruik. Daarvoor heette het blad de KIM Kenner, naar de naam van de club. 

De naam van het blad heeft alles te maken met de doelstelling van de club. In de tijd 
dat het blad de KIM Kenner genoemd werd, hielden de leden zich voornamelijk bezig met de 
KIM. Daarna kwamen onder andere de Junior, de Apple II, de Octopus en DOS-65. Omdat dit 
geen KIM's waren en de naam KIM Kenner niet bij deze systemen past, werd het De 6502 
Kenner . 

Nu, aan het begin van 1989, is besloten dat de club zich breder op gaat stellen ten 
aanzien van het type processor. Dit betekent dat de naam De 6502 Kenner niet meer past 
bij het blad. We hebben dus een nieuwe naam nodig!! Ik zou het heel prettig vinden als 
we met ingang van de dertiende jaargang een nieuwe naam voor het blad zouden kunnen 
voeren. 

Ik roep daarom uw hulp in! 

Wie verzint er een leuke naam die aansluit bij de nieuwe richting die de club inslaat? 

U kunt uw bijdrage tot 15 januari bij mij inleveren. 

De winnaar wordt beloond met een blad dat de door hem bedachte naam draagt en met een 
boekenbon van F.50, — . Op de bijeenkomst in Krommenie op 21 januari 1988 krijgen de daar 
aanwezige leden de kans uit de ingezonden namen De Naam te kiezen. 

Gert van Opbroek 

Bateweg 60 

2481 AN Woubrugge 
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CHARED: Editor for the DOS65 character generator. 

Met behulp van CHARED kan men de Charactergenerator die in een 
DOS65 systeem zit zelf wijzigen. 

Het pakket bestaat uit : 

Is Een basic programma met de eigenlijke editor (CHARED. BAS 

2: Een assemblerprogramma met een printroutine (PRCHAR.MAC 
3: Diverse charactersets waarvan die van D0S65 als 

voorbeeld afgedrukt is (DOS65 . SET) 

Deze software staat op het Bulletin Board en kan eventueel via 
de D0S65 coordinator besteld worden. 



1000 

1001 

1002 

1003 

1004 

1005 

1006 

1007 

1008 

1009 

1009 

1010 

1011 

1015 

1018 

1020 

1022 

1025 

1026 

1027 

1030 

1033 

1034 

1035 

1040 

1060 

1075 

1076 

1077 

1078 

1079 

1080 

1081 

1082 

1083 

1084 

1085 

1086 

1087 

1088 

1089 

1092 

1097 

1098 

1099 

1100 

1101 

1102 

1105 



CHARED. BAS 

A.G.MEGENS 
febr.1983 V.l 0S1 
sept. 1984 V.2 0S65D3 
jan.1988 V.3 DOS65 



REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 

POKE &003D,&005F:REM top of RAM at $5FFF to 

POKE &003C,&00FF:REM protect buffer at $6000 

X=FRE(X):REM adjust rest of pointers 

WT=7:REM WIDTH OF MATRIX - 1 

HI=9:REM HEIGHT OF MATRIX - 1 

DIM CHAR(WI.HI) :TE=0 : BASE=&6000 :MAX=255 

FOR 1=0 TO WI:F0R J=0 TO HI:CHAR(I,J)=0:NEXT J, I 

CX=4 1 : CY=2 : X0=CX : Y0=CY : OC=0 : ER$=" " 

CHANGED=0 : NTSAVD=0 : STNSAVD=0 

CL$=CHR$(26) :REM clear to end of line 

CS$=CHR$(25):REM clear to end~of~screen 

AX=PEEK(&AAC0) :REM save mode "Byte" 

HOME: CURSOR TO 2 , 1 

PRINT " Character editor V.3" 

PRINT " " 

CR$=CHR$(13) 

GOSUB 10000: REM show matrix 
CURSOR TO 4,1 

PRINT"G = Goto character x" 
PRINT"L = Load char. set from disk" 
PRINT'S = Save char. set on disk" 
PRINT" I = Invert character" 
PRINT"Q = Quit" 
PR1NT"E = Erase matrix" 
PRINT"P = Put matrixchar. in set" 
PR1NT"C = Copy matrixchar. from x" 
PRINT"< = Previous character" 
PR1NT"> = Next character" 
PRINT"H m Hardcopy of char. set" 
PRINT" 1 = Set bit" 
PRINT"0 = Clr bit ~E" 
PRlNT"Cursor control with ~S ~D" 
PRINT"standard EDITOR keys: "X" 
GOTO 5000 :REM show first char. 

REM + + 

REM | MAIN LOOP 

REM + + 

CURSOR TO CY,CX:IF OC=l THEN INVERSE 
PRINT " [ ] " : NORMAL 
CURSOR TO 20,27 

IF CHANGED THEN INVERSE : PRINT "Modified" : NORMAL : STNSAVD=1 : GOTO 1107 
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1106 PRINT " 11 

1107 CURSOR TO 21,20 

1108 IF NTSAVD THEN INVERSE : PRINT "(not saved in set)" :N0RMAL:G0T0 1110 

1109 PRINT " " 

1110 GOSUB 22000 :REM CHECK KEYS 
1115 IF DX+DYO0 THEN 1100 :REM SHOW NEW CURSOR 
1120 IF DA=0 THEN GOTO 1110:REM NO KEYS AT ALL 

1130 REM + + 

1131 REM | CHECK COMMAND-KEYS | 

1132 REM + + 

1139 REM convert to uppercase 

1140 IF DA$<="z" AND DA$>="a" THEN DA$=CHR$(DA-(ASC("a")-ASC("A") ) ) 
1150 FOUND=0 

1155 CM$="GLSIQEPCOH10":REM allowed commands 
1160 FOR 1=1 TO LEN(CM$) 

1165 : IF DA$ = M1D$ (CM$ ,1,1) THEN F0UND=I : I=LEN(CM$ ) 
1170 NEXT 1 

1175 IF FOUND THEN 1180 

1177 ER$="Unknown command" : GOSUB 11000:GOTO 1100 
1180 GOSUB 11100:REM erase message line 



1181 IF F0UNDM0 THEN 1185 

1182 ON FOUND GOTO 6000,8000,7000,1560,1990,1530,3000,9000,1510,1500 
1185 ON FOUND-10 GOTO 4000,1300,1310 

1190 STOP 

1297 REM + + 

1298 REM | '1' & '0' command | 

1299 REM + + 



1300 OC=l: GOSUB 1 400 : CHANGED= 1 :NTSAVD=1 : GOTO 1100 
1310 OC=0:GOSUB 1450:CHANGED=1 :NTSAVD=1 :GOTO 1100 
1400 REM *** SET DOT ON *** 
1405 CURSOR TO CY,CX 

1410 INVERSE: PRINT " ": NORMAL : RETURN 

1450 REM *** SET DOT OFF *** 

1455 CURSOR TO CY,CX 

1460 NORMAL: PRINT " ": RETURN 

1497 REM + + 

1498 REM | '>' Next and '<' Prev. command 

1499 REM + + 

1500 TE=TE+1 :CHANGED=0:NTSAVD=0:GOTO 5000 

1510 TE=TE- 1 : CHANGED=0 : NTSAVD=0 : GOTO 5000 

1511 REM H + 

1512 REM | 'E'rase command 

1513 REM + + 

1530 FOR 1=0 TO HI 

1535 : FOR J=0 TO WI 
1540 : IF CHAR(J,I)=0 THEN 1550 
1545 : CURSOR TO Y0+2*I ,X0+3*(WI-J) 
1547 : GOSUB 1460 : CHAR( J , I)=0 



1550 NEXT J, I 

1552 OC=0:CHANGED=1:NTSAVD=1 

1553 GOTO 1100 

1554 REM + + 

1555 REM | 'I'nverse command 

1556 REM + + 

1560 FOR 1=0 TO HI 

1565 : FOR J=0 TO WI 



1566 : CURSOR TO (Y0+2*I) , (X0+3*(WI-J) ) 

1570 : IF CHAR(J,I)=1 THEN CHAR(J,I)=0:GOSUB 1460:GOTO 1590 

1580 : CHAR(J,I)=1 :GOSUB 1410 

1590 NEXT J,I:CHANGED=1:NTSAVD=1 

1600 IF OC=0 THEN OC=l:GOTO 1100 

1610 OC=0 

1620 GOTO 1100 

1630 : 
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1986 REM + + 

1987 REM | 'Q'uit command 

1988 REM + + 

1989 REM 'Q'uit command 

1990 IF STNSAVD THEN 2010 

2000 HOME: PRINT: PRINT: POKE &AAC0,AX:END 
2010 CURSOR TO 22,1 

2020 PRINT "Are you sure ? (modified set not stored on disk)" 
2030 GET C$:IF C$="" THEN 2030 
2040 IF C$="Y" OR C$="y" THEN 2000 
2050 CURSOR TO 22,1: PRINT CL$:P0KE 22,0 
2060 GOTO 1100 

2996 REM + + 

2997 REM | 'P'ut char, in set I 

2998 REM + + 

3000 CURSOR TO 22,1: POKE 22,0 

3003 PRINT"Saving character nr.";TE;" " 
3005 CHAR(WI-(CX-X0)/3,(CY-Y0)/2)=OC 
3010 FOR 1=0 TO HI 
3015 : B=0 

3020 : FOR J=0 TO WI 

3030 : IF CHAR(J,I) THEN B=B+INT(2~J+.5) 
3050 : NEXT J 

3060 : POKE (BASE+16*TE+I) ,B 
3065 NEXT 1:NTSAVD=0 

3068 CURSOR TO 22,1: POKE 22,0: PRINT CL$ 
3080 GOTO 1100 

3996 REM + + 

3997 REM | 'H'ardcopy of buffer I 

3998 REM + + 

4000 CURSOR TO 22,1:PRINT "Please wait — > printing" ;CL$ ;: POKE 22,0 
4005 CURSOR TO 23,1 

4010 D0S"L0AD PRCHAR.BIN" : REM ** GET MT PROGRAM ** 

4030 CALL &A000 

4060 CURSOR TO 22,1: PRINT CL$ 

4070 GOTO 1110 

4995 REM + + 

4996 REM | Show BUFFER(TE) I 
4998 REM + + 

5000 ER$="Reached end of buffer" 

5001 IF TE<0 THEN GOSUB 11000:TE=0 :GOTO 1100 

5002 IF TE>MAX THEN GOSUB 1 1 000 :TE=MAX: GOTO 1100 

5003 CURSOR TO 20,1: POKE 22,0: PRINT" Showing character nr.";TE;" " 

5004 CURSOR TO 20,27: PRINT " " 

5005 CURSOR TO 2 1,20: PRINT " 
5010 FOR 1=0 TO HI 

5015 : B=PEEK(BASE+TE*16+I) 

5020 : FOR J=0 TO Wl 

5030 : CHAR(J,I)=SGN(B AND 2M) 

5035 : CURSOR TO Y0+2*I ,X0+3*(WI-J) 

5040 : IF CHAR(J,I) THEN GOSUB 1410:GOTO 5060 

5050 : GOSUB 1460 

5060 NEXT J, I 

5070 OC=CHAR( WI- ( CX-X0 ) / 3 , ( CY- Y0 ) / 2 ) 
5080 GOTO 1100 

5996 REM + + 

5997 REM | 'G'oto character | 

5998 REM + + 

6000 CURSOR TO 22,1: POKE 22,0 

6010 PRINT "Which character (0-255) ";CL$;:POKE 22,0 
6030 INPUT C$ 

6035 GOSUB 12000 :REM remove spaces 

6040 IF C$="" THEN CURSOR TO 22,1: PR] NT CL$; :POKE 22,0: GOTO 1110 
6045 ER$="Enter max. 3 digits" 
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6050 IF LEN(C$)>3 THEN GOSUB 11000-.GOTO 6000 

6055 ER$="Illegal number" 

6060 FOR 1=1 TO LEN(C$) 

6070 : Q$=MID$(C$,I,1) 

6080 : IF Q$<"0" OR Q$>"9" THEN GOSUB 1 1 000 : 1=LEN( C$ ): NEXT: GOTO 6000 

6090 NEXT I 

6091 ER$="Number out of range, must be between 0 and"+STR$ (MAX) 

6094 IF VAL(C$)>MAX OR VAL(C$)<0 THEN GOSUB 11000:GOTO 6000 

6095 TE=VAL(C$) :CHANGED=0:NTSAVD=0 

6096 CURSOR TO 22,1: PRINT CL$;:P0KE 22,0 



6097 GOSUB 11100 
6100 GOTO 5000 

6996 REM + + 

6997 REM I 'S'ave set on disk | 

6998 REM + + 



7000 QU$="Give filename to save set " 

7030 GOSUB 14000 

7035 IF C$="" THEN 7096 

7080 D$="SAVE "+C$+" " 

7082 DC=BASE:G0SUB 13000 :D$=D$+HX$ : REM convert BASE to HEX 
7085 DC=BASE+16*MAX: GOSUB 13000 : D$=D$+" ,"+HX$ 
7090 DOS D$ : REM SAVE <filename> <start> ,<end> 

7095 CURSOR TO 23,1: PRINT "Character set saved in file ";C$ 

7096 CURSOR TO 22,1: PRINT CL$:P0KE 22,0:STNSAVD=0 
7100 GOTO 1110 

7996 REM + + 

7997 REM | 'L'oad set from disk | 

7998 REM + + 

8000 IF STNSAVD=0 THEN 8009 

8001 CURSOR TO 22,1 

8002 PRINT "Are you sure ? (current set is modified but not stored on 

8003 GET C$:IF C$="" THEN 8003 

8004 IF C$="Y" OR C$="y" THEN 8009 

8005 CURSOR TO 22,1:PR1NT CL$:P0KE 22,0:GOTO 1100 

8009 HOME :D0S"D1R": CURSOR TO 22,1: POKE 22,0 

8010 QU$="Give filename of set " 
8030 GOSUB 14000 

8035 IF C$="" THEN CURSOR TO 22,1:PRINT CL$:POKE 22,0:G0T0 1030 
8080 D$="L0AD "+C$+" " 

8082 DC=BASE:GOSUB 13000 :D$=D$+HX$ :REM convert BASE to HEX 

8090 DOS D$:REM LOAD <filename> <start> 

8091 CURSOR TO 22,1 

8092 PRINT "Press <RETURN> to continue " ;CL$ ; :P0KE22 ,0 

8093 GET C$:IF C$="" THEN 8093 

8094 IF ASC(C$)<>13 THEN 8093 

8095 CURSOR TO 22,1:PR1NT CS$ 

8099 TE=0 : CHANG ED=0 : NTSAVD=0 : STNSAVD=0 

8100 GOTO 1030 

8996 REM + + 

8997 REM | 'Copy character | 

8998 REM + + 

9000 CURSOR TO 22,1: POKE 22,0 

9010 PRINT "Copy from which character (0-255) ";CL$;:POKE 22,0 
9030 INPUT C$ 

9035 GOSUB 12000 :REM remove spaces 

9040 IF C$="" THEN CURSOR TO 22,1:PR1NT CL$; :POKE 22,0:GOTO 1110 

9045 ER$="Enter max. 3 digits" 

9050 IF LEN(C$)>3 THEN GOSUB 11000:GOTO 9000 

9055 ER$="Illegal number" 

9060 FOR 1=1 TO LEN(C$) 

9070 : Q$=MID$(C$,I,1) 

9080 : IF Q$<"0" OR Q$>"9" THEN GOSUB 1 1 000 : I=LEN( C$ ): NEXT: GOTO 9000 

9090 NEXT 1 

9091 ER$="Number out of range, must be between 0 and"+STR$ (MAX) 
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9094 
9095 
9096 
9100 
9110 
9120 
9130 
9140 
9150 
9160 
9997 
9998 
9999 
10000 
10001 
10002 
10005 
10010 
10015 
10017 
10020 
10025 
10030 
10035 
10040 
10042 
10044 
10046 
10048 
10050 
10055 
10060 
10070 
10080 
10085 
10090 
10095 
10100 
10105 
10115 
10160 
10999 
11000 
11099 
11100 
12000 
12010 
12020 
12030 
13000 
13010 
13200 
13220 
13230 
13240 
13250 
13999 
14000 
14005 
14010 
14020 
14041 
14042 
14045 



IF VAL(C$)>MAX OR VAL(C$)<0 THEN GOSUB 11000:GOTO 9000 
ER$="Number is equal to current char, number" 
IF VAL(C$)=TE THEN GOSUB 11000:G0TO 9000 
FOR 1=0 TO HI 

: B=PEEK(BASE+VAL(C$)*16+I) 

: POKE (BASE+TE*16+I) ,B 

NEXT 1 : CHANGED= 1 : NTS AVD= 1 

CURSOR TO 22,1: PRINT CL$;:P0KE 22,0 

GOSUB 11100 

GOTO 5000 

REM + + 

REM | Show (empty) character matrix I 

REM + + 

CURSOR TO 1,40 

PRINT CHR$(27) ;"F" ; :REM graphic mode on 

PRINT "P"; 

FOR J=0 TO WI-1 

: PRINT "XXW"; 

NEXT J 

PRINT "XXV" 

FOR 1=0 TO HI 

CURSOR TO 2+2*1,40 

: FOR J=0 TO WI 

: PRINT "Y "; 

: NEXT J 

PRINT "Y" 

CURSOR TO 3+2*1,40 
IF I=HI THEN 10080 
: PRINT "QXX"; 
: FOR J=l TO WI 
: PRINT "ZXX"; 
: NEXT J 
: PRINT "U" 
NEXT I 
PRINT "R"; 
FOR J=0 TO WI-1 
: PRINT "XXS"; 
NEXT J 
PRINT "XXT" 

PRINT CHR$(27) ;"G":REM graphic mode off 
RETURN 

REM > ERROR MESSAGES < 

CURSOR TO 23,1: PRINT ER$ ; CL$ : RETURN 

REM > ERASE ERROR MESSAGES < 

CURSOR TO 23,1: PRINT CL$: RETURN 

REM remove leading and trailing spaces in filename 

IF LEFT$(C$,1)=" " AND LEN(C$)>1 THEN C$=M1D$(C$ ,2) :GOTO 12010 

IF R1GHT$(C$,1)=" " AND LEN(C$)>1 THEN C$=LEFT$(C$ ,LEN(C$)-1 ) :GOTO 12020 

RETURN 

REM > convert decimal DC to hexadecimal HX$ < 

HX$="0123456789ABCDEF" 

Hl=INT(DC/4096) :D=DC-4096*H1 :Ll=INT(D/256) :D=D-256*L1 
H0=1NT(D/16) :D=D-16*H0:L0=D+1 
H1=H1+1 :H0=H0+1 :L1=L1+1 

HX$=M1D$(HX$,H1,1)+M1D$(HX$,L1,1)+MID$(HX$,H0,1)+M1D$(HX$,L0,1) 
RETURN 

REM > get filename < 

CURSOR TO 22,1: PRINT QU$ ; CL$ ; : POKE 22,0 
INPUT C$ 

GOSUB 12000 :REM remove spaces 
IF C$="" THEN 14090 

ER$="Filename too long, max. 14 char." 
IF LEN(C$)>14 THEN GOSUB 11000:G0TO 14000 
ER$="Illegal character in filename" 
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14050 
14060 
14070 
14080 
14090 
21996 
21997 
21998 
22000 
22005 
22010 
22015 
22020 
22040 
22050 
22070 
22080 
22085 
22090 
22120 
22121 
22125 
22127 
22130 
22140 
22145 
22150 
22155 
22160 
22180 



FOR 1=1 TO LEN(C$) 
: Q$=M1D$(C$,I,1) 
: IF Q$=" " OR Q$= 
NEXT 1 



ii ii 



THEN GOSUB 1 1000 : 1=LEN(C$) : NEXT : GOTO 14000 



REM + + 

REM | CURSOR ROUTINE | 

DX=0:DY=0:DA=0 

POKE &AAC0,(AX AND 127):REM disable ~S~Q 

GET DA$:IF DA$="" THEN RETURN 

DA=ASC(DA$) :REM ** D0S65 ED codes ** 

IF DA=5 THEN DY=- 2 : REM ** ~E is up ** 

IF DA=24 THEN DY= 2 :REM ** "X is down ** 

IF DA=19 THEN DX=-3:REM ** "S is left ** 

IF DA=4 THEN DX= 3 :REM ** "D is right ** 

IF DX=0 AND DY=0 THEN RETURN 

GOSUB 11100:REM erase message line 

REM move cursor (with wrap-around) 

CURSOR TO CY,CX 

CHAR(WT- ( CX-X0 ) / 3 , ( CY- Y0 ) / 2 ) =0C 

IF OOl THEN GOSUB 1400: REM leave a dot here 

IF OC=0 THEN GOSUB 1450: REM leave a space here 

CX=CX+DX:CY=CY+DY 

IF (CX-X0)/3 > WI THEN CX=X0 : CY=CY+2 

IF (CX-X0)/3 < 0 THEN CX=X0+W1*3 : CY=CY-2 

IF (CY-Y0)/2 > HI THEN CY=Y0 

IF (CY-Y0)/2 < 0 THEN CY=Y0+2*HI 

OC=CHAR(WI-(CX-X0)/3,(CY-Y0)/2) 

RETURN 



1 

2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 



PRCHAR 

Print character set in $6000-$6FFF in bit-image mode on matrix-printer, 
used as subroutine in CHARED. BAS program. Can also be used standalone. 

char. data in the ELEKTOR 6845/6545 Video-card EPROM is stored as follows: 



B 


B B B 


B B 


B B 








7 


6 5 4 


3 2 


1 0 


















00 


1 




XXX 


X X 






7C 


2 


• 


. X . 




X . 




22 


3 


• 


. X . 


• • 


X . 




22 


4 


• 


. X X 


X X 


• • 




3C 


5 


■ 


. X . 


• • 


X . 




22 


6 


* 


. X . 


• • 


X . 




22 


7 


• 


XXX 


X X 


• • 




7C 


8 












00 


9 












00 


10 



10 subsequent bytes form one char. Next char, is 16 bytes further. 

For bit image printing on my printer (C0SM0S-80) the data is send in 
a string: 

<ESC> K <nl> <n2> <data> 

<ESC> K to enter bit-image mode in normal density 

<nl> is low order byte of data counter 

<n2> is high order byte 

<data> is bit image data (max. 640 bytes) 
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33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 

59 

60 

61 

62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 

81 

82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 



DOT 

. < 

. < 

. < 

. < 

. < 

. < 

. < 

. < 

. < 



B7 B6 B5 B4 B3 B2 Bl BO 
— + 



-+ 

- B7 

- B6 



1st line 



2nd line 



So the bit-image data is composed of all bits of one char, with the same 
weight, e.g. all B7 combined form the first column of the bit-image 
representation of the char. Because the char, matrix is 10 x 8, two extra 
bits are packed on the next line. They come from the 9th and 10th byte. 
Prior to printing the line-spacing is set to 21/216 inch (dots connect with 
next line) All printer strings are in tables, so easy to change for other 
printers. The characters are seperated on the line with 2 empty columns. 



PR1N1T equ 
PROUT equ 
PRTEXT equ 
ESC 



LF 
CR 
FF 
PTR 
MAX 
CHRPL1N 



equ 
EQU 
EQU 
EQU 
EQU 
EQU 



org 

START jmp 

STRINGS 

LINESP fee 

B1T1MG fee 
fdb 
fee 

RESPR fee 

PRCHAR LDA 
LDY 
STA 
STY 
STA 
JSR 
BCC 

N0PR1NT 

fee 
RTS 

C0NT LDX 
JSR 

NXTL1N LDX 
JSR 
LDA 
LDY 
STA 
STY 
LDA 
STA 

FIRSTLN 

LDA 



$F0F4 

$F88C 

$F79D 

$1B 

$0A 

$0D 



$E0 
640 
EQU 

$A000 



MAX/ 10 



;printer initialisation routine 

; printer output routine 

;print string on screen 

;ESC code 

; LINEFEED code 

; FORMFEED 

;max. number of dots/ line 

; number of char. /line (8+2 columns) 



PRCHAR 

equ $ 

ESC, '3', 21,0 

ESC.'K' 

MAX 

0 

ESC,'0',LF,0 

#0 

//$60 
PTR 
PTR+1 
LINECNT 
PR1N1T 
C0NT 

JSR PRTEXT 



;line spacing string 
;bit-i 



; reset line-spacing to 1/8 inch 

;set pointer to start ($6000) 
;of char. set data 



;init printer output 
; printer ok 

;else send error message 
'Printer not present or of f-line\n\r' ,0 
;and return to caller 
jdefine line spacing 
;send string to printer 
; enter bit-image mode 



//L1NESP-STRINGS 
SNDPR1N 

#B1T1MG-STRINGS 
SNDPR1N 
PTR 
PTR+1 
PSAV 
PSAV+1 
#0 

COUNT 

LDX #0 
#% 10000000 



; compose first line 
; start with B7 
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Q7 


CTA 


MAW 






98 

J o 


NXTR1 T T TW 








qq 

77 


oil 


n AT A 

JJA1 A 




i nn 




t n a 


r PTR 1 V 


;get char, data 


i n i 


a Km 


1 IAD IN. 




;get bit 


iuz 


GPP 






l m 

1UJ 


DIN Ej 


cufT 

onr i 




, XI set smiL xn x 


1 flA 
IUh 


PT P 






, e xse u 


i ns 


^WFT ROT 


nAT A 

JJ Al A 




1 06 


1 NY 








1 D7 


tpy 


#8 

If O 




;for all 8 bytes? 


108 


BNE 


GETDATA 




;no, keep going 


1 DQ 

1U7 


IDA 


nAT A 
U nl A 




i (Tof p\ T -I- T m O PT P} o<- o 

, gel DIl Xmdg c OdLd 


1 1 n 

1 1 u 


JuEv 


PROI1T 




• cDn pi \~ c\ nn' nfor 
j ocllU LU JJlXLlLfcri 

• r\Ai nt" +- r\ novt" p< n 1 n mn 
, pOXIlL LU ILcaL CUXUI1111 


1 1 1 
iii 


T ^R 


MAW 




1 1 9 
1 1 Z 


1 MY 
1 1NA 






1 1 1 
1 1 J 


ppx 


#8 

if o 




jUU LUX fa O LXUltrfa 


1 1 A 
11^ 


RMF 
DIN Cj 


IN AX Dll 






1 1 s 
1 1 J 


t n a 

A 








1 1 fl 

110 


T9R 


PROUT 




y LWU cllipLy (_UXU.llU.lo LU 


1 1 7 
11/ 


TC, R 
J O K. 


PROUT 




, seperate cnaraci cib 


1 1 8 
1 1 o 

1 1 Q 
117 


T n A 

1*17 ri 
PT p 


PTR 




1ZU 


Anr 


#16 




;next char . is 16 bytes away 


1 9 1 


Qln 


PTR 






1 9 9 
1 Z Z 


rpp 


N1NC 






1 Z J 


i mp 

1 1N^> 


PTR+1 






1 9 A 
1 Z H 


Ml MP 1 MP 
IN UNO 11\^ 


COUNT 






1 9 S 
1Z J 


t n a 


COUNT 






1 9fi 
1 ZD 


PMP 


#CHRPLIN 


' niimKor p-\ f 7 p<h ar /I i" np 
, IlUIUUc I UX L-llCtL •/ llllc 


1 97 
1 Z / 


RMF 
DIN Hi 


F1RSTLN 






1 9R 
1 z o 


1 F) A 
JUL! si 


#LF 




, faL-UU Li£ LU ClllL* Ly UUiiCi 


1 9Q 

izy 


t^;r 

J O K. 


PROUT 






i in 

1 JU 


T n A 
J_*JJ A 


PSAV 




• r-a cf- r\r a nm' nt" or 
j ItbLUlc jJUXULcL 


1 i i 
i j i 


t nv 


PSAV+1 




1 19 
1 J z 


CTA 

o In 


PTR 








CTV 
Oil 


PTR+1 






1 1A 
1 Jt 


T TW 


#B1T1MG- 


STRINGS 


, criLer dxl xiiidgt: uiuuc 


i is 
i j j 


tc,r 


SNDPR1N 




i ia 

1 JO 


t n a 

LAJ A 


#0 






1 17 
1 j / 


QT A 
Din 


COUNT 






1 18 

1 JO 


O01NI7J-1I.N lgJJA 


#0 




• /*• pmtit\ acq copnrin 1 i nP 

9 L- UlllL* Uo C OCLU11U 1 J- 11C 


1 1Q 

1J7 


t n a 


#% 10000000 


• cfarf ui 1"h R7 

j bLdl L Willi JJ/ 


i An 
i hu 


<5T A 


MASK 






1 A 1 
Ih 1 


t n A 


PTR 






1 A9 

1 H Z 


T TW 

1_,JJ 1 


PTR+1 






1 A1 

1 H J 


A 

ox n 


PSAV 






1 AA 


CTV 
Oil 


PSAV+1 






IAS 

1 H J 


MYTR7 TT 
IN A 1 D 1 11 


LDY 


#8 


•plpor Ki f-i ma p-p pi a f- a 


1 Aft 

1 HO 


T DA 


#0 




1 A7 

1 H / 


o ± A 


DATA 






1 AR 

1 HO 


VjEjll7r\l uUc\ 


[PTR] ,Y 




•apt" rhpT- data 


1 AQ, 

1 H 37 


AND 

Xill X/ 


MASK 




•apt hit 


i so 

1 J VJ 










151 


BNE 


SHFTT 




;if set shift in '1' 


152 


CLC 






;else '0' 


153 


SHFTT ROL 


DATA 






154 


1NY 








155 


CPY 


#10 




;for next 2 bytes (8+2 = 10)? 


156 


BNE 


GETDAT 




;no, keep going 


157 


LDY 


#6 






158 


MV1N CLC 








159 


ROL 


DATA 






160 


DEY 
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161 
162 
163 
164 
165 
166 
167 
168 
169 
170 
171 
172 
173 
174 
175 
176 
177 
178 
179 
180 
181 
182 
183 
184 
185 
186 
187 
188 
189 
190 
191 
192 
193 
194 
195 
196 



199 

200 
201 
202 
203 
204 
205 
206 



BNE 
IDA 
JSR 
LSR 
1NX 
CPX 
BNE 
LDA 
JSR 
JSR 
LDA 
CLC 
ADC 
STA 
BCC 
INC 

NOINC INC 
LDA 
CMP 
BNE 
LDA 
JSR 
INC 
LDA 
CMP 
BEQ 
JMP 
LDA 
JSR 

EXIT LDX 
JSR 
RTS 



SNDPR1N 



BEQ 
JSR 
1NX 



SNDEX RTS 



PSAV 
DATA 
MASK 
COUNT fee 
LINECNT 

END 



fee 
fee 
fee 



MVIN 
DATA 
PROUT 
MASK 

#8 

NXTB1TT 
#0 

PROUT 
PROUT 
PTR 

#16 

PTR 

NOINC 

PTR+1 

COUNT 

COUNT 

//CHRPLIN 

SCNDLN 

#LF 

PROUT 

LINECNT 

LINECNT 

#(256/CHRPLIN) 

EXIT 

NXTLIN 

#CR 

PROUT 

#RESPR-STR1NGS 
SNDPR1N 



;get bit-image data 

;send to printer 

; point to next column 

;do this 8 times 



;two empty columns to 
;seperate characters 



;next char, is 16 bytes away 



; number of char. /line 
;send LF to empty buffer 

jnumber of lines to print all 256 char. 



; send CR 

; reset printer 

;send string to printer 



LDA STRINGS, X 

SNDEX 

PROUT 



;send string until NULL 



SNDPR1N 



0,0 
0 
0 
0 

fee 
START 



; branch always 
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Addr 0 1 2 3 4 5 6 7 8 9 A B CD E F 



Addr 01 23 45 67 89 ft B CD EF 



0000 0000 

0010 0000 

0020 0000 

0030 0012 

0040 0010 

0050 0000 

0060 0000 

0070 0070 

0080 0070 

0090 0048 

OOaO 0040 

OObO 0044 

OOcO 0078 

OOdO 0038 

OOeO 0038 

OOfO 0038 



0000 OOOf 
0000 OOfO 
0000 OOff 
2449 1224 
0804 3el0 
081c 3elc 
0000 lclc 
4870 4874 
4870 4f78 
4878 485f 
4040 4f78 
4428 lOlf 
4060 4f 48 
4040 3e09 
4030 0876 
4030 0f72 



OfOf OfOf 
fOfO fOfO 
ffff ffff 
4912 2400 
0804 0000 
0800 0000 
0000 0000 
0404 0700 
0601 OeOO 
0404 0400 
0c08 0800 
0404 0400 
0c08 0800 
OeOa 0900 
0909 0600 
0202 0700 



0000 0000 0000 
0000 0000 0000 
0000 0000 0000 
0000 0000 0000 
0000 0000 0000 
0000 0000 0000 
0000 0000 0000 
0000 0000 0000 
0000 0000 0000 
0000 0000 0000 
0000 0000 0000 
0000 0000 0000 
0000 0000 0000 
0000 0000 0000 
0000 0000 0000 
0000 0000 0000 



fiddr 01 23 45 67 89 AB CD EF 



0100 0000 

0110 0808 

0120 0808 

0130 0808 

0140 0808 

0150 0808 

0160 0000 

0170 0000 

0180 0000 

0190 0808 

OlaO 0808 

01 W 0078 

OlcO 0000 

OldO 0030 

OleO 0000 

01 fO ffff 



0000 0f08 0808 
0808 0f08 0808 
0808 Of 00 0000 
0808 ffOO 0000 
0808 f 800 0000 
0808 f 808 0808 
0000 f808 0808 
0000 f f 08 0808 
0000 ffOO 0000 
0808 0808 0808 
0808 f f08 0808 
4070 4778 0601 
0000 OOff ffff 
4058 4f38 0601 
OOff ffff 0000 
ffOO 0000 0000 



0808 0808 
0808 0808 
0000 0000 
0000 0000 
0000 0000 
0808 0808 
0808 0808 
0808 0808 
0000 0000 
0808 0808 
0808 0808 
OeOO 0000 
ffff f fOO 
OeOO 0000 
0000 
0000 



0808 0808 
0808 0808 
0000 0000 
0000 0000 
0000 0000 
0808 0808 
0808 0808 
0808 0808 
0000 0000 
0808 0808 
0808 0808 
0000 0000 
0000 0000 
0000 0000 
0000 0000 
0000 0000 



Addr 01 23 45 67 89 AB CD EF 



0200 0000 

0210 0008 

0220 0024 

0230 0024 

0240 0008 

0250 0061 

0260 0038 

0270 000c 

0280 0004 

0290 0010 

02a0 0000 

02b0 0000 

02c0 0000 

02d0 0000 

02eO 0000 

02f0 0000 



0000 0000 
0808 0800 
2424 0000 
247e 247e 
3f48 3e09 
6204 0810 
4428 1029 
Oc08 1000 
0810 1010 
0804 0404 
082a lc2a 
0808 7f08 
0000 0000 
0000 7f00 
0000 0000 
0204 0810 



0000 0000 
0808 0000 
0000 0000 
2424 0000 
7e08 0000 
2343 0000 
4639 0000 
0000 0000 
0804 0000 
0810 0000 
0800 0000 
0800 0000 
1818 1020 
0000 0000 
1818 0000 
2040 0000 



0000 0000 0000 
0000 0000 0000 
0000 0000 0000 
0000 0000 0000 
0000 0000 0000 
0000 0000 0000 
0000 0000 0000 
0000 0000 0000 
0000 0000 0000 
0000 0000 0000 
0000 0000 0000 
0000 0000 0000 
0000 0000 0000 
0000 0000 0000 
0000 0000 0000 
0000 0000 0000 



fiddr 01 23 45 67 89 AB CD EF 



0300 003c 

0310 0008 

0320 003c 

0330 003c 

0340 0004 

0350 007e 

0360 001c 

0370 007e 

0380 003c 

0390 003c 

03a0 0000 

03b0 0000 

03c0 0008 

03d0 0000 

03e0 0008 

03f0 OOle 



464e 5a72 
1828 0808 

4202 lc20 
4202 lc02 
Ocl4 247e 
407c 0202 
2040 7c42 
4204 0810 
4242 3c42 
4242 3e02 
0018 1800 
0018 1800 
1020 4020 
003e 003e 
0402 0102 
2101 



623c 0000 
083e 0000 
407e 0000 
423c 0000 
0404 0000 
423c 0000 
423c 0000 
1010 0000 
423c 0000 
023c 0000 
1818 0000 
1818 1020 
1008 0000 
0000 0000 
0408 0000 
0008 0000 



0000 0000 0000 
0000 0000 0000 
0000 0000 0000 
0000 0000 0000 
0000 0000 0000 
0000 0000 0000 
0000 0000 0000 
0000 0000 0000 
0000 0000 0000 
0000 0000 0000 
0000 0000 0000 
0000 0000 0000 
0000 0000 0000 
0000 0000 0000 
0000 0000 0000 
0000 0000 0000 



0400 OOle 

0410 0018 

0420 007c 

0430 001c 

0440 007c 

0450 007e 

0460 007e 

0470 003c 

0480 0042 

0490 001c 

04a0 OOOe 

04b0 0042 

04c0 0040 

04d0 0041 

04e0 0042 

04f0 001c 



214d 555e 403e 
2442 7e42 4242 
2222 3c22 227c 

2240 4040 221c 
2222 2222 227c 
4040 7840 407e 
4040 7840 4040 
4240 404e 423c 
4242 7e42 4242 
0808 0808 081c 
0404 0404 4438 
4448 5068 4442 
4040 4040 407e 
6355 4941 4141 
6252 4a46 4242 

2241 4141 221c 



0000 0000 
0000 0000 
0000 0000 
0000 0000 
0000 0000 
0000 0000 
0000 0000 
0000 0000 
0000 0000 
0000 0000 
0000 0000 
0000 0000 
0000 0000 
0000 0000 
0000 0000 
0000 0000 



0000 0000 
0000 0000 
0000 0000 
0000 0000 
0000 0000 
0000 0000 
0000 0000 
0000 0000 
0000 0000 
0000 0000 
0000 0000 
0000 0000 
0000 0000 
0000 0000 
0000 0000 
0000 0000 



Addr 01 23 45 67 89 AB CD EF 



0500 007c 

0510 001c 

0520 007c 

0530 003c 

0540 007f 

0550 0042 

0560 0041 

0570 0041 

0580 0041 

0590 0041 

05a0 007f 

05b0 003c 

05c0 0000 

05d0 003c 

05e0 0008 



4242 7c40 
2241 4945 
4242 7c48 
4240 3c02 
0808 0808 
4242 4242 
4122 2214 
4141 4149 
2214 0814 
2214 0608 
0204 0810 
2020 2020 
4020 1008 
0404 0404 
1422 0000 
0000 0000 



4040 0000 
221d 0000 
4442 0000 
423c 0000 
0808 0000 
423c 0000 
1408 0000 
5522 0000 
2241 0000 
0808 0000 
207f 0000 
203c 0000 
0402 0000 
043c 0000 



0000 0000 0000 
0000 0000 0000 
0000 0000 0000 
0000 0000 0000 
0000 0000 0000 
0000 0000 0000 
0000 0000 0000 
0000 0000 0000 
0000 0000 0000 
0000 0000 0000 
0000 0000 0000 
0000 0000 0000 
0000 0000 0000 
0000 0000 0000 



Addr 0 1 2 3 4 5 6 7 8 9 A B C D E F 



0600 0018 

0610 0000 

0620 0040 

0630 0000 

0640 0002 

0650 0000 

0660 000c 

0670 0000 

0680 0040 

0690 0008 

06a0 0002 

06b0 0040 

06c0 0018 

06d0 0000 

06e0 0000 

06f0 0000 



1808 0400 0000 
003c 023e 423d 
405c 6242 625c 
003c 4240 423c 
023a 4642 463a 
003c 427e 403c 
1210 7cl0 1010 
003a 4642 463a 
405c 6242 4242 
0018 0808 081c 
0006 0202 0202 
4048 5066 4442 
0808 0808 081c 
0076 4949 4949 
005c 6242 4242 
003c 4242 423c 



0000 0000 
0000 0000 
0000 0000 
0000 0000 
0000 0000 
0000 0000 
0000 0000 
023c 0000 
0000 0000 
0000 0000 
221c 0000 
0000 0000 
0000 0000 
0000 0000 
0000 0000 
0000 0000 



0000 0000 
0000 0000 
0000 0000 
0000 0000 
0000 0000 
0000 0000 
0000 0000 
0000 0000 
0000 0000 
0000 0000 
0000 0000 
0000 0000 
0000 0000 
0000 0000 
0000 0000 
0000 0000 



Addr 0 1 2 3 4 5 6 7 8 9 A B C D E F 



0700 0000 

0710 0000 

0720 0000 

0730 0000 

0740 0000 

0750 0000 

0760 0000 

0770 0000 

0780 0000 

0790 0000 

07a0 0000 

0760 000c 

07cO 0008 

07d0 0018 

07eO 0030 

07f0 OOff 



005c 6242 
003a 4642 
005c 6240 
003e 6018 
107c 1010 
0042 4242 
0041 4122 

0041 4949 

0042 2418 
0042 4242 
007e 0418 
1010 2010 
0808 0008 
0404 0204 

0000 



625c 4040 0000 
463a 0202 0000 
4040 0000 0000 
067c 0000 0000 
120c 0000 0000 
463a 0000 0000 
1408 0000 0000 
4936 0000 0000 
2442 0000 0000 
463a 023c 0000 
207e 0000 0000 
100c 0000 0000 
0808 0000 0000 
0418 0000 0000 



0000 0000 
0000 0000 
0000 0000 
0000 0000 
0000 0000 
0000 0000 
0000 0000 
0000 0000 
0000 0000 
0000 0000 
0000 0000 
0000 0000 
0000 0000 
0000 0000 
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Addr 01 23 45 6 7 69 ftB CD EF 



ftddr 01 23 45 67 69 fl B CD EF 



0800 ffff 

0810 ffff 

0820 ffff 

0830 ffed 

0840 ffef 

0850 ffff 

0860 ffff 

0870 ff8f 

0880 ff8f 

0890 ffb7 

08a0 ffbf 

08b0 ffbb 

08e0 ff87 

08d0 ffc7 

08e0 ffc7 

08f0 ffc7 



0900 
0910 
0920 
0930 
0940 
0950 
0960 
0970 
0980 
0990 
09a0 
09b0 
09c0 
09d0 
09e0 
09f0 



ffff fffO 
ffff ffOf 
ffff f fOO 
dbb6 eddb 
f7fb clef 
f7e3 cle3 
ffff e3e3 
b78f b78b 
b78f b087 
b787 b7a0 
bfbf b087 
bbd7 efeO 
bf9f Wb7 
bfbf clf6 
bfcf f789 
bfcf fOfid 



fOfO fOfO ffff 
OfOf OfOf ffff 
0000 0000 ffff 
b6ed dbff ffff 
f7fb ffff ffff 
f7ff ffff ffff 
ffff ffff ffff 
fbfb fBff ffff 
f9fe flff ffff 
fbfb fbff ffff 
f3f7 f7ff ffff 
fbfb fbff ffff 
f3f7 f7ff ffff 
flf5 f6ff ffff 
f6f6 f9ff ffff 
fdfd f8ff ffff 



ffff ffff 
ffff ffff 
ffff ffff 
ffff ffff 
ffff ffff 
ffff ffff 
ffff ffff 
ffff ffff 
ffff ffff 
ffff ffff 
ffff ffff 
ffff ffff 
ffff ffff 
ffff ffff 
ffff ffff 
ffff ffff 



ftddr 0 1 2 3 4 5 6 7 8 9 ft B C D E F 



ffff ffff 
<7f7 f7f7 
f7f7 f7f7 
f7f7 f7f7 
f7f7 f7f7 
f7f7 f7f7 
ffff ffff 
ffff ffff 
ffff ffff 
f7f7 f7f7 
f7f7 f7f7 
ffB7 bf8f 
ffff ffff 
ffcf bfa7 
ffff ffOO 
0000 OOff 



f0f7 f7f7 
f0f7 f7f7 
fOff ffff 
OOff ffff 
07ff ffff 
07f7 f7f7 
07f7 f7f7 
00f7 f7f7 
OOff ffff 
f7f7 f7f7 
00f7 f7f7 
bfl87 f9fe 
ffOO 0000 
b0c7 f9fe 
0000 ffff 
ffff ffff 



f7f7 f7f7 
f7f7 f7f7 
ffff ffff 
ffff ffff 
ffff ffff 
f7f7 f7f7 
f7f7 f7f7 
f7f7 f7f7 
ffff ffff 
f7f7 f7f7 
f7f7 f7f7 
flff ffff 
0000 OOff 
flff ffff 
ffff ffff 
ffff ffff 



f7f7 f7f7 
f7f7 f7f7 
ffff ffff 
ffff ffff 
ffff ffff 
f7f7 f7f7 
f7f7 f7f7 
f7f7 f7f7 
ffff ffff 
f7f7 f7f7 
f7f7 f7f7 
ffff ffff 
ffff ffff 
ffff ffff 
ffff ffff 
ffff ffff 



Addr 01 23 45 67 89 ftB CD EF 



OaOO ffff 

OalO fff7 

0a20 ffdb 

0a30 ffdb 

Oa40 fff7 

0a50 ff9e 

Oa60 ffc7 

0a70 fff3 

OaBO fffb 

0a90 ffef 

OaaO ffff 

OabO ffff 

OacO ffff 

OadO ffff 

OaeO ffff 

OafO ffff 



ffff ffff 
f7f7 f7ff 
dbdb ffff 
db81 dbdl 
cOb7 clf6 
9dfb f7ef 
bbd7 efd6 
f3f7 efff 
f7ef efef 
f7fb fbfb 
f7d5 e3d5 
f7f7 80f7 
ffff ffff 
ffff 80ff 
ffff ffff 
fdfb f7ef 



ffff ffff ffff 
f7f7 ffff ffff 
ffff ffff ffff 
dbdb ffff ffff 
81f7 ffff ffff 
dcbc ffff ffff 
b9c6 ffff ffff 
ffff ffff ffff 
f7fb ffff ffff 
f7ef ffff ffff 
f7ff ffff ffff 
f7ff ffff ffff 
e7e7 efdf ffff 
ffff ffff ffff 
e7e7 ffff ffff 
dfbf ffff ffff 



ffff ffff 
ffff ffff 
ffff ffff 
ffff ffff 
ffff ffff 
ffff ffff 
ffff ffff 
ffff ffff 
ffff ffff 
ffff ffff 
ffff ffff 
ffff ffff 
ffff ffff 
ffff ffff 
ffff ffff 
ffff ffff 



ftddr 01 23 45 67 89 ftB CD EF 



ObOO ffc3 

OblO fff7 

0b20 ffc3 

0b30 ffc3 

Ob40 fffb 

0b50 ff61 

0b60 ffe3 

0b70 ffSl 

ObBO ffc3 

0b90 ffc3 

ObaO ffff 

ObbO ffff 

ObcO fff7 

ObdO ffff 

ObeO fff7 

ObfO ffel 



b9bl a58d 
e7d7 f7f7 
bdfd e3df 
bdfd e3fd 
f3eb dbdl 
bf83 fdfd 
dfbf 83bd 
bdfb f7ef 
bdbd c3bd 
bdbd clfd 
ffe7 e7ff 
ffe7 e7ff 
efdf bfdf 
ffcl ffcl 
fbfd fefd 
defe f9f7 



9dc3 ffff 
f7cl ffff 
bfBl ffff 
bdc3 ffff 
fbfb ffff 
bdc3 ffff 
bdc3 ffff 
efef ffff 
bdc3 ffff 
fdc3 ffff 
e7e7 ffff 
e7e7 efdf 
eff7 ffff 
ffff ffff 
fbf7 ffff 
fff7 ffff 



ffff ffff ffff 
ffff ffff ffff 
ffff ffff ffff 
ffff ffff ffff 
ffff ffff ffff 
ffff ffff ffff 
ffff ffff ffff 
ffff ffff ffff 
ffff ffff ffff 
ffff ffff ffff 
ffff ffff ffff 
ffff ffff ffff 
ffff ffff ffff 
ffff ffff ffff 
ffff ffff ffff 
ffff ffff ffff 



OcOO ffel 

OclO ffe7 

0c20 ff83 

0c30 ffe3 

0c40 ff83 

0c50 ff81 

Oc60 ff81 

0c70 ffc3 

0c80 ffbd 

0c90 ffe3 

OcaO fffl 

OcbO ffbd 

OccO ffbf 

OcdO ffbe 

OceO ffbd 

OcfO ffe3 



deb2 aaal 
dbbd 81bd 
dddd c3dd 
ddbf bfbf 
dddd dddd 
bfbf 87bf 
bfbf 87bf 
bdbf bfbl 
bdbd 81bd 
f7f7 f7f7 
fbfb fbfb 
bbb7 af97 
bfbf bfbf 
9caa b6be 
9dad b5b9 
ddbe bebe 



bfcl ffff 
bdbd ffff 
ddB3 ffff 
dde3 ffff 
dd83 ffff 
bf81 ffff 
bfbf ffff 
bdc3 ffff 
bdbd ffff 
f7e3 ffff 
bbc7 ffff 
bbbd ffff 
bfBl ffff 
bebe ffff 
bdbd ffff 
dde3 ffff 



ffff ffff ffff 
ffff ffff ffff 
ffff ffff ffff 
ffff ffff ffff 
ffff ffff ffff 
ffff ffff ffff 
ffff ffff ffff 
ffff ffff ffff 
ffff ffff ffff 
ffff ffff ffff 
ffff ffff ffff 
ffff ffff ffff 
ffff ffff ffff 
ffff ffff ffff 
ffff ffff ffff 
ffff ffff ffff 



ftddr 01 23 45 67 89 ftB CD EF 



OdOO ffB3 

OdlO ffe3 

0d20 ffB3 

0d30 ffc3 

0d40 ff80 

Od50 ffbd 

0d60 ffbe 

0d70 ffbe 

0d80 ffbe 

OdSO ffbe 

OdaO ff80 

OdbO ffc3 

OdcO ffff 

OddO ffc3 

OdeO fff? 

OdfO ffff 



bdbd 83bf bfbf 
ddbe b6ba dde2 
bdbd 83b7 bbbd 
bdbf c3fd bdc3 
f7f7 f7f7 f7f7 
bdbd bdbd bdc3 
bedd ddeb ebf7 
bebe beb6 aadd 
ddeb f7eb ddbe 
ddeb f7f7 f7f7 
fdfb f7ef df80 
dfdf dfdf dfc3 
bfdf eff7 fbfd 
fbfb fbfb fbc3 
ebdd ffff ffff 
ffff ffff ffBO 



ffff ffff 
ffff ffff 
ffff ffff 
ffff ffff 
ffff ffff 
ffff ffff 
ffff ffff 
ffff ffff 
ffff ffff 
ffff ffff 
ffff ffff 
ffff ffff 
ffff ffff 
ffff ffff 
ffff ffff 
ffff ffff 



ffff ffff 
ffff ffff 
ffff ffff 
ffff ffff 
ffff ffff 
ffff ffff 
ffff ffff 
ffff ffff 
ffff ffff 
ffff ffff 
ffff ffff 
ffff ffff 
ffff ffff 
ffff ffff 
ffff ffff 
ffff ffff 



Addr 01 23 45 67 89 AB CD EF 



OeOO ffe7 

OelO ffff 

0e20 ffbf 

0e30 ffff 

Oe40 fffd 

0e50 ffff 

0e60 fff3 

0e70 ffff 

0e80 ffbf 

0e90 fff7 

OeaO fffd 

OebO ffbf 

OecO ffe7 

OedO ffff 

OeeO ffff 

OefO ffff 



e7f7 fbff 
ffc3 fdcl 
bfa3 9dbd 
ffc3 bdbf 
fdc5 b9bd 
ffc3 bdBl 
edef 83ef 
ffc5 b9bd 
bfa3 9dbd 
ffe7 f7f7 
fff9 fdfd 
bfb7 af97 
f7f7 f7f7 
ffB9 b6b6 
ffa3 9dbd 
ffc3 bdbd 



ffff ffff 
bdc2 ffff 
9da3 ffff 
bdc3 ffff 
b9c5 ffff 
bfc3 ffff 
efef ffff 
b9c5 fdc3 
bdbd ffff 
f7e3 ffff 
fdfd dde3 
bbbd ffff 
f7e3 ffff 
b6b6 ffff 
bdbd ffff 
bdc3 ffff 



ffff ffff ffff 
ffff ffff ffff 
ffff ffff ffff 
ffff ffff ffff 
ffff ffff ffff 
ffff ffff ffff 
ffff ffff ffff 
ffff ffff ffff 
ffff ffff ffff 
ffff ffff ffff 
ffff ffff ffff 
ffff ffff ffff 
ffff ffff ffff 
ffff ffff ffff 
ffff ffff ffff 
ffff ffff ffff 



Addr 01 23456789ABCDEF 



OfOO ffff 

OflO ffff 

0f20 ffff 

0f30 ffff 

Of40 ffff 

0f50 ffff 

0f60 ffff 

0f70 ffff 

0f80 ffff 

Of90 ffff 

OfaO ffff 

OfbO fff3 

OfcO fff7 

OfdO ffe7 

OfeO ffcf 

OffO ffOO 



ffa3 9dbd 
ffc5 b9bd 
ffa3 9dbf 
ffcl 9fe7 
ef83 efef 
ffbd bdbd 
ffbe bedd 
ffbe b6b6 
ffbd dbe7 
ffbd bdbd 
ffBl fbe7 
efef dfef 
f7f7 fff7 
fbfb fdfb 
~f9 ffff 



9da3 bfbf 
b9c5 fdfd 
bfbf ffff 
f983 ffff 
edf3 ffff 
b9c5 ffff 
ebf7 ffff 
b6c9 ffff 
dbbd ffff 
b9c5 fdc3 
df81 ffff 
eff3 ffff 
f7f7 ffff 
fbe7 ffff 
ffff ffff 
0000 ffff 



ffff ffff ffff 
ffff ffff ffff 
ffff ffff ffff 
ffff ffff ffff 
ffff ffff ffff 
ffff ffff ffff 
ffff ffff ffff 
ffff ffff ffff 
ffff ffff ffff 
ffff ffff ffff 
ffff ffff ffff 
ffff ffff ffff 
ffff ffff ffff 
ffff ffff ffff 
ffff ffff ffff 
ffff ffff ffff 
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Erxgraiwteerfra re T-ortca. wat is dat? (Peel 2 V 
Door: Nico de Vries 

In deel 1 hebben we kennis gemaakt met de beginselen van Booleaanse algebra, en de 
ontstaansgeschiedenis van de oudste soort programmeerbare logica: PALs. De ontwik- 
kelingen hebben echter niet stil gestaan. In dit deel word en dan ook de laatste 
ontwikkelmgen en de andere soorten prograraneerbare logica bekeken. 



6. Wat worden die krengen heet! 

De in het vorige deel van dit verhaal 
beschreven PALs hadden niet alleen voor- 
delen, maar ook nadelen. Zo zijn deze 
PALs gemaakt in zogenaamde bipolaire 
techniek. Dit heeft tot gevolg dat de 
PALs redelijk snel zijn: de standaard- 
typen hebben een doorlooptijd van 35 ns 
(ongeveer 4 LS-poorten). Bij de aller- 
snelste typen loopt dit terug tot 10 ns. 
Bipolaire techniek heeft ook een nadeel: 
stroonverbruik. Standaard PALs nemen 180 
tot 210 mA uit de voeding op: 1 Watt dis- 
sipatie! Deze PALs worden in bedrijf be- 
hoorlijk heet. 

Een aantal typen zijn dan ook leverbaar 
met een lager stroomverbruik. Dit gaat 
echter ten koste van de snelheid. Dit 
probleem wordt ten dele opgelost door het 
combineren van snellere ICs opleverende 
technieken met het vergroten van de in- 
terne pull-up weerstanden. De PALs blij- 
ven dan even snel, maar gebruiken minder 
stroom. Op deze manier is men erin ge- 
slaagd, om PALs te maken die minder dan 
50 mA verbruiken, maar die toch de stan- 
daard snelheidsspecif icaties bezitten. 

Een andere manier ter verkleining van 
het stroomverbruik is om PALs te maken in 
CMOS-techniek. Dit heeft echter wat lan- 
ger geduurd dan oorspronkelijk voorzien: 
in CMOS is het moeilijk om 'bipolaire' 
snelheden te halen, terwijl vooral het 
fabriceren van een betrouwbare fuse geen 
sinecure is. Een verder probleem was het 
grote aantal pull-up weerstanden in de 
PAL: deze gebruiken ook stroom als de 
mgangen niet veranderen. Zo'n PAL zou 
dus niet voldoen aan het CMOS-criterium: 
stilstand is gelijk aan geen voedings- 
stroom. Er zijn inmiddels PALs in CMOS 
verkrijgbaar die redelijke snelheids- 
specif icaties hebben. Echte zero-power 
standby PALs zijn echter schaars: deze 
meeste hebben een standby verbruik van 
ca. 100 uA. 

De meeste CMOS PALs zijn gebaseerd op 
EP RDM- technieken voor zover het de 
programmeerbare verbindingen betreft. 
Vaak kunnen deze typen dan ook in twee 
uitvoeringen verkregen worden: met en 
zonder ruitje, oftewel wis- en opnieuw 
programmeerbaar of eenmalig te program- 
mer en . 



7. Toeters en bellen. 

In het voorgaande hebben we gezien, dat 
een PAL beperkt wordt door het aantal 
producttermen per uitgang, en door zijn 



architectuur, die vastligt in het type. 
Dit is er in principe de oorzaak van, 
dat er zoveel verschillende typen zijn: 
Monolithic Memories maakte op een gege- 
ven moment wel 30 verschillende basis- 
typen. Een stap in een andere richting 

is dan ook, ook de architectuur program- 
meerbaar te maken. Een eenvoudig voor- 
beeld daarvan war en de PALs met program- 
meerbare uitgangspolariteit. Maar het 
kan nog verder: zo zou je per uitgang 
moeten kunnen kiezen tussen registerwer- 
king of niet, terugkoppeling vanaf de 
pin of vanaf de Q-niet uitgang van de 
flip-flop en dergelijke. Ook een groter 
aantal producttermen per uitgang levert 
een meer flexibele PAL op. 

De eerste stap in deze richting werd 
gedaan door AMD. Zij ontwierpen de 
PAL22V10, een 24-pins PAL met 10 uitgan- 
gen, die 8 tot zelfs 16 producttermen 
hebben. Ook kan de gebruiker met een 
paar f use- j es bepalen we Ike uitgangen 
registers bevatten en we Ike niet, en 
tevens is de uitgangspolariteit program- 
meerbaar. Het on twerp van de PAL22V10 
was zodanig uitgekiend, dat deze PAL zo 
ongeveer de standaard 24 pins PAL is ge- 
worden. Van deze PAL bestaat inmiddels 
ook een CMOS-versie. De EPLDs (Erasable 
Programmable Logic Device) van Intel en 
Altera vallen ook onder de familie lo- 
gica met gedeeltelijk programmeerbare 
architectuur. EPLDs zijn gemaakt in 
CMOS, met EPRDM eigenschappen: dus wis- 
baar met UV-licht. 

Het ei van Columbus op dit gebied wordt 
wellicht aangeboden door Lattice. Zij 
produeeren een tweetal ICs, die niet met 
PAL, maar met de weinig flatteuze naam 
GAL (Generic Array Logic) worden aan- 
geduid. De GALs hebben net als de 
PAL22V10 een programmeerbare architec- 
tuur, die echter zodanig gemaakt is, dat 
men met een 20-pins en een 24-pins IC 
( respect ievelijk de GAL16V8 en de 
GAL20V8) meer dan 25 verschillende typen 
PALs kan emuleren. Verder heeft Lattice 
de programmerfabrikanten zover kunnen 
krijgen, dat de programmer eventueel de 
omzetting van PAL naar GAL kan verzor- 
gen. Dit houdt voor de gebruiker in, dat 
hij zonder meer van PALs over kan gaan 
op GALs. De gebruiker krijgt door het 
gebruik van GALs namelijk nog twee extra 
voordelen: GALs zijn gemaakt in CMOS- 
techniek, en gebruiken dus minder stroom 
dan PALs, en zij zijn gemaakt in een 
EEPRDM- techno logie, dat wil zeggen, GALs 
zijn electrisch wis- en programmeerbaar. 
Dit maakt een GAL ideaal voor prototype- 
werk: bij een ontwerpverandering gewoon 
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even opnieuw programmeren . Er hoeft zelfs 
niet op het wissen gewacht te worden. In 
het prototype van de virtual diskkaart 
met statische RAMs zit bijvoorbeeld een 
GAL20V8 . De V in de GAL-nummers staat 
overigens voor 'versatile ' , een Engels 
woord voor veelzijdig. 



8. Andere goorten programmeerbaxe Ipgjca. 

Tot dusver hebben we gezien, dat een PAL 
een programmeerbaar AND-array heeft: de 
verbiridingen naar de AND-poorten zijn 
programmeerbaar uitgevoerd. Het uit- 
gangsdeel is vast bedraad en bevat de OR- 
poor ten. Deze AND -OR volgorde volgt auto- 
mat isch uit het feit dat iedere logische 
tunc tie altijd kan worden uitgedrukt door 
een son van producten. Het kan natuurlijk 
ook anders. 

Het omgekeerde, een vast AND-array en 
een programmeerbaar OR-array bestaat ook. 
Deze vorm is zelfs ouder en kennen we 
allemaal: de PROM. Een PROM (en dus ook 
een EPROM en een EEPROM) bestaat uit een 
adresdecoder (het vaste AND-array) en 
programmeerbare data (het programmeerbare 
OR-array). De adresaansluitingen zijn de 
ingangen, de data-aansluitingen de uit- 
gangen. De PROM wordt echter relatief 
weinig voor logica ingezet, vanwege een 
probleempje. Dat probleem is niet snel- 
heid, want er bestaan PROMs die 20 ns 
toegangstijd hebben. Het probleem is 
glitches. Stel er verandert een adreslijn 
(ingang), en de data op een bepaalde uit- 
gang zou hierbij dezelfde moeten blijven. 
Dit gebeurt in principe ook, zij het, dat 
de adresdecoder in de PROM aan het werk 
gaat en een andere geheugencel gaat 
adresseren. Tijdens de verandering van de 
ene naar de andere geheugencel zitten we 
even in het niemandsland : de uitgang is 
ongedef inieerd. Hierdoor gaat de uitgang 
misschien even laag, of gaat even zweven. 
Zoiets wordt een glitch genoemd, en is 
inherent aan alle PROMs. De belangrijkste 
oorzaak van glitches zijn looptijdver- 
schillen op de chip zelf . Een voorbeeld 
van een PROM en een EPROM toegepast als 
logische bouwsteen vindt men in de EP ROM- 
programmer : de pindecoder-EPROM en de 
VPP-decoder-PROM . Door zijn architectuur 
heeft de PROM geen beperking in het aan- 
tal producttermen per uitgang. 

De combinatie van zowel een programmeer- 
baar AND-array en een programmeerbaar OR- 
array bestaat ook. Ze is ongeveer even 
oud als de eerste PAL en wordt FPLA 
(Field Programmable Logic Array) genoemd. 
De schepper van deze f ami lie is Signe- 
tics. FPLAs hebben de eigenschap, dat een 
bepaalde productterm die in meerdere uit- 
gangen voorkomt, maar 1 keer gemaakt 
hoeft te worden. Hierdoor kennen deze ICs 
in de praktijk geen producttermbeperkin- 
gen. FPLAs hebben vanaf het prille begin 
steeds programmeerbare uitgangspolariteit 
gehad. FPLAs met registers in de uitgan- 
gen bestaan ook: ze he ten dan FPLS (Field 
Programmable Logic Sequencer). Deze 



architectuur lijkt het meest optimal, 
maar is het toch niet. Ten eerste kan 
een on twerp zodanig worden opgezet, dat 
het g 1 it ch-prob leem weer de kop op 
steekt, ofschoon men bij het on twerp van 
de FPLAs zelf hieraan bijzondere aan 
dacht heeft geschonken. Ten tweede heeft 
men te maken met twee arrays: AND en OR. 
Het signaal moet dus door twee arrays 
heen, waardoor de FPLA inherent trager 
is dan een PAL of een PROM. Een tweede 
nadeel van het dubbele array is, dat een 
relatief eenvoudige FPLA al gauw twee- 
maal zoveel fuses bevat dan een PAL van 
dezelfde grootte. Daar fuses veel chip- 
ruimte vereisen, en chipgrootte mede de 
snelheid bepaalt, is ook dit een oorzaak 
van snelheidsbeperkingen . 



9. Hoe pr^fframmjeer iff PATiR? 

Er treedt bij PALs, in tegenstelling 
tot PROMs een bijzonder probleem op: je 
kunt het array niet rechtstreeks via de 
pinnen bereiken, althans niet op fuse- 
niveau. Alle PALs, EPLDs, GALs en FPLAs 
moeten dan ook eerst in een speciale 
programmeerstand worden gebracht . Dit 
gebeurt zonder uitzondering door het 
aanleggen van spanningen hoger dan 5 
Volt op bepaalde pinnen. Hierdoor ver- 
anderen de ingangen meestal in adres- en 
stuurlijnen, en via de uitgangen zijn 
dan meestal rechtstreeks de fuses in het 
array beschikbaar. Toch is hiermee het 
probleem nog niet helemaal opgelost: de 
PAL16L8 bijvoorbeeld, heeft 10 echte 
ingangen, maar 2048 fuses. 10 ingangen 
kunnen slechts 1024 fuses adresseren. Er 
moet dus ook nog gemultiplext worden. 
Bij FPLAs wordt dit probleem nog een 
factor groter. 

Een tweede hinderpaal is de metalen 
fuse zelf. Er is sprake van een door- 
sine ltp roc es en dat kost energie. De 
typische programmeerstroom bij een PAL 
ligt dan ook bij ca. 750 mA (piek). Als 
je dus meerdere fuses tegelijk wilt pro- 
grammeren (in verband de met snelheid 
van programmeren ) moet de programmer in 
totaal al gauw Amperes kunnen leveren! 

Die metalen fuse levert nog een ander 
probleem op. Omdat je die dingen maar 1 
keer kunt programmeren, kun je in de 
fabriek niet kijken of de PAL wel goed 
zal programmeren. Het uur der waarheid 
slaat dus pas bij de eindgebruiker als 
hij de PAL programmeert . Vandaar dat de 
fabrikanten van programmeerbare logica 
die metalen fuses bevat, meestal niet 
een opbrengst van 100% maar van 95% tot 
98% beloven. 

In de programmeerstand kan van een 
logisch IC niet alleen het array recht- 
streeks worden geprogrammeerd , maar ook 
worden uitgelezen. Men kan dus eenvoudig 
een duplicaat maken, door een IC eerst 
in te lezen, en vervolgens een bianco 
exemplaar met het uitgelezen array te 
programmeren . 
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Het niet rechtstreeks bereikbaar zijn 
van het array kan ook ten voordele ge- 
bruikt worden. .Alle programmeerbare 
logische ICs zijn voorzien van een 
mogelijkheid om de programmeer/uit- 
leesstand permanent te uit te schakelen. 
Dit wordt gedaan door een speciale fuse, 
die het functioneren van de fusedecoder 
lamlegt, waardoor het array niet meer 
gelezen kan worden . Hierdoor kan een 
buitenstaander niet meer eenvoudig een 
kopie van een PAL maken, anders dan door 
het aanbieden van allerlei ingangscom- 
binaties en het bestuderen van de uit- 
gangen. Deze bijzondere fuse wordt mees- 
tal de 'security fuse' genoemd en kan 
door een goede logicaprogrammer gepro- 
grammeerd worden. Na zo n actie kan de 
PAL dus niet meer zonder meer gecopieerd 
worden. 

Het zal uit het bovenstaande duidelijk 
geworden zijn, dat het maken van een 
goede PAL-programmer geen sinecure is. 
Bij CMOS-ICs ligt de zaak meestal wat 
minder gevoelig omdat deze vaak wisbaar 
zijn, terwij 1 de vereiste spanningen en 
stromen ook bescheidener zijn. Het inge- 
wikkelde adresseren blijft echter, vooral 
bij typen met programmeerbare architec- 
tuur. 



10. Hoe on twerp .ie nu een PAL? 

Tot dusver hebben we het alleen over de 
PALs zelf gehad. In het eerste deel heb- 
ben we zelfs een eenvoudig on twerp je 'met 
de hand' gedaan. Het zal echter een ieder 
duidelijk zijn, dat deze manier van 
we r ken met kruisjes zetten in een 
plattegrond geen gebruikersvriendelijke 
benadering van de PAL inhoudt. Vanaf het 
prille begin bestaat er dan ook software, 
die deze uitzoekerij van de ontwerper 
overneemt . 

Het oudste programma voor ontwerpen van 
PALs komt van de uitvinder MMI en heet 
eenvoudig PALASM (assembler voor PALs). 
PALASM is in staat om van een genormali- 
seerde sourcefile met Booleaanse verge- 
lijkingen een fuseplattegrond (meestal 
fuseplot genoemd) te genereren. Het werkt 
vrij eenvoudig: geef alle pinnen van de 
PAL die je gaat gebruiken een naam, en 
schrijf vervolgens in Booleaanse verge- 
lijkingen de gewenste logische verbanden 
tussen de in- en uitgangen op. Dit levert 
voor iedere uitgang een verge lij king op. 
PALASM doet niet aan vereenvoudigingen, 
en verwerkt ook geen haakjes: de ge- 
bruiker moet de verge lijkingen dus hele- 
maal uitwerken. Dit heeft als voordeel 
dat men van te voren kan zien of een 
ontwerp qua producttermen in een PAL 
past, maar als nadeel dat het ontwerp 
vrij veel voorbereidingstijd kan vergen. 

Moderne assemblers voor logica kunnen 
echter veel meer. Zo accepteren ze vrij— 
wel allemaal drie vormen van invoer: de 
verge li,j king, de waarheidstabel en 
bo lien- of toestandsdiagrammen , alsmede 
mengvormen hiervan. Deze laatste worden 



gebruikt bij logica met registers. Ook 
mag men zonder uitzondering haakjes ge- 
bruiken: de assembler rekent de uitein- 
delijke vergelijkingen zelf uit en con- 
troleert of alles in het opgegeven IC 
past. Alle assemblers, ook PALASM, gene- 
reren als uitvoer een documentatief ile 
en een zogenaamde JEDEC-file. Deze 
JEDBC-f ile kan door een logicaprogrammer 
worden gelezen, en heeft een universeel, 
genormaliseerd formaat. 

Een mogelijkheid die ook door alle pak- 
ketten geboden wordt, is simulatie. Dit 
wil zeggen, dat de gebruiker in de sour- 
cefile kan beschrijven hoe hij verwacht 
dat het te programmeren IC zal werken. 
De assembler kan deze informatie dan 
denkbeeldig toevoeren aan het ontworpen 
IC, en controleren of dit inderdaad het 
geval is. Op deze manier kan men een 
logisch IC ontwerpen achter het toetsen- 
bord: pas als de simulatie naar wens 
verloopt programmeert men het prototype. 
Vooral in de snelheid waarmee dit simu- 
latieproces verloopt en in de gedetail- 
leerdheid van de foutmeldingen lopen de 
diversen pakketten sterk uiteen. 

Bekende logische assemb lerpakke tt en 
zijn naast PALASM, ABEL en CUPL. Deze 
twee pakketten zijn zeer universeel en 
snel, en kunnen niet alleen voor PALs 
maar ook voor PRDMs, GALs, EPLDs en 
FPLAs assembleren en simuleren. In 
tegenstelling tot PALASM dat van MMI 
afkomstig is, en dus alleen MMI PALs 
ondersteunt, zijn ABEL en CUPL niet 
merkgebonden . Een laatste voorbeeld van 
een merkgebonden pakket is PLPL van AMD. 
Al deze pakketten draaien op PC's of 
klonen hiervan, en varieren in prijs 
tussen fl. 800.- en fl. 6000.-. Niet 
iets voor de hobbyist dus. 



11 1 — Besluxt i 

Dit was een beknopt overzicht over pro- 
grammeerbare logica. Het is niet de be- 
doeling van dit verhaal dat de lezer na 
lezing compleet en uitgebreid over dit 
soort ICs geinformeerd is, maar meer be- 
doeld om een idee te geven van de were id 
die schuil gaat achter een misschien nu 
wat meer zeggend typenummer als PAL16L8. 
In dit artikel lag verder sterk de na- 
druk op PALs: dit komt omdat deze het 
meest gebruikt worden, en door de acn- 
tergrond van de schrijver. 

Zoals reeds gesteld, zijn PALs inmid- 
dels uitgegroeid tot standaardcomponen- 
ten, waar zelfs electronica-hobbytijd- 
schriften als Elektuur nauwelijks meer 
omheen kunnen. Programmeerbare logica is 
immers niets anders dan je eigen custom- 
IC maken, zij het op beperkte schaal. 
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Computers ........ (deel 1) . 



Door Gert van Opbroek 
Bateweg 60 
2481 AN Woubrugge 
01729-8636 

lnleiding 

Op de laatste ledenvergadering en uit 
gesprekken met leden is mij gebleken, dat 
er binnen de club behoefte bestaat aan 
enkele publicaties die vooral gericht zijn 
op die mensen die beginnen met de compu- 
terhobby. Welnu, dit verhaaltje wil hier- 
voor een eerste aanzet zijn. 

Ik denk dat het goed is, te beginnen bij 
het begin van onze club. Onze club is nu 
twaalf jaar geleden opgericht door mensen 
die op hun werk te maken kregen met de 
KIM. Waar schi jnli jk hadden ze ook zelf 
zo'n systeem en om de kennis over dit 
systeem te bewaren en te verspreiden, is 
de KIM Gebruikersclub Nederland opgericht. 

Wat is die KIM eigenlijk? 

De KIM is een zogenaamde single board 
computer. Dit wil dus zeggen dat op een 
printplaat een complete computer opgebouwd 
is, dit in tegenste lling tot de grote 
kasten van de grote computers zoals de IBM 
370 en de PDP-11. Dit computertje kon 
gebruikt worden voor bijvoorbeeld het 
besturen en regelen van machines. De men- 
sen die de club opgericht hebben gebruik- 
ten de KIM ook voor deze zaken. 



In figuur 1 is een foto afgedrukt van de 
KIM. Het is een printplaat met daarop een 
aantal elektronische onderdelen. Verder 
zitten er op de KIM een toetsenbordje met 
de toetsen 0 t/m 9, A t/m F en enkele 
toetsen met een twee-letterige code en een 
zestal 7 segment displays. Op de rand van 
de printplaat zijn twee connectoren aange- 
bracht voor uitbreidingen en het kunnen 
aansluiten van de KIM aan andere schake- 
lingen. 

In figuur 2 is de interne opbouw van de 
KIM schematisch weergegeven. In een vol- 
gende paragraaf zal deze opbouw verder 
besproken worden. 

Hoewel de KIM uit slechts een klein aantal 
onderdelen bestaat is het toch een com- 
plete computer. Deze computer is niet 
alleen het startpunt van de KIM Gebrui- 
kersgroep Nederland geweest maar ook de 
start van de hobby-computers. 

De club is zich in de loop van de tijd 
gaan ontwikkelen als een club van specia- 
listen. Het blad heet niet voor niets De 
6502 Kenner. Wij willen hiermee aangeven 
dat we de 6502 door en door kennen. Deze 
kennis is opgebouwd door het feit dat een 
deel van de leden zelf hun systeem gebouwd 
en misschien zelfs wel ontworpen hebben. 
Verder is er in de club altijd veel in 
assembler geprogrammeerd en is er door een 
aantal leden systeemsof tware gemaakt. DOS- 
65 is in deze categorie een van de laatste 
product en. 




Fig. | : Photo of KIM- 1 
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Fig. 2. : KIM- 1 Internal Organization 



Op dit moment is het zo dat besloten is op 
dezelfde voet door te gaan. Wei gaan we 
proberen de basis van de club te vergroten 
door ook de andere typen processoren te 
gaan ondersteunen. In plaats van 6502 
Kenners worden we dus Microcomputer Ken- 
ners . 

In dit artikel zullen we eens gaan kijken 
hoe een microcomputer globaal opgebouwd 
is. In de volgende delen zullen we steeds 
een laagje dieper graven. Ik weet niet 
waar deze excursie zal eindigen maar ik 
hoop dat degenen die meegaan op excursie 
na afloop van mening zullen zijn, dat het 
de moeite waard geweest is. Uiteraard 
houdt ik me voor op- en aanmerkingen en 
eventuele bijdragen zoals altijd van harte 
aanbevolen . 

De computer: de buitenste laag 

Voor de meeste mensen bestaat een computer 
moment eel uit : 

Een systeemkast met daarin een hoe- 
veelheid elektronica 
Een toetsenbord 
Een beeldscherm 

Een of meer diskettestations en mis- 
schien zelfs wel een harde schijf 
(Winchester) 

Eventueel een printer, een muis een 
^r .... •«•••««. 



Categorie 1: De computer 

De computer is het hart van het systeem. 
In deze categorie valt het grootse deel 
van de inhoud van de systeemkast. Dit is 
met name de processor die het werk doet en 
het hoof dgeheugen waar 
in staat wat voor werk de processor moet 
doen. 

Categorie 2: Achtergrond- of massageheugen 

In deze categorie vallen de floppy disks 
en de harde schijven. Als het systeem een 
cassette-recorder gebruikt, valt deze ook 
in deze categorie. De processor kan alleen 
werken met gegevens die in het hoofdgeheu- 
gen staan. Als deze gegevens op achter- 
grondgeheugen staan, dan moeten ze eerst 
opgehaald, geladen worden. 

Categorie 3: lnvoer en uitvoer 

Alle overige apparatuur valt in de catego- 
rie lnvoer en Uitvoer of I/O naar Input en 
Output. Dit is apparatuur waarmee informa- 
tie het systeem binnenkomt of waarmee 
informatie uit het systeem gaat. 

Ook in de software is een opdeling te 
maken. Hier is de opdeling echter veel 
minder vast als bij de computer. Zelf 
hanteer ik de volgende opdeling: 



Hoewel het allemaal verschillende dingen 
zijn, kunnen we toch alle apparatuur on- 
derbrengen in drie categorieen: 
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Categorie 1: Systeemprogrammatuur 

In deze categorie valt alles wat gebruikt 
wordt om de computer te laten werken. Dit 
zijn onder andere: 

Het bedrijf ssysteem (operating sy- 
steem) dus bijvoorbeeld MS-DOS of 
DOS-65. 

- Vertalers en interpreters voor de 
programmeertalen (Basic, Pascal, 
Forth ). 

- Speciale programma's voor interactie 
met de gebruiker zoals bijvoorbeeld 
MS-Windows onder MS-DOS of GEM voor 
de Atari of de Amiga. 

Categorie 2: Standaardsof tware 

Dit zijn algemene programma's waarmee de 
computergebruiker werkt. Het specifieke 
kenmerk van standaardsof tware is dat het 
algemeen van opzet is. Voorbeelden van 
standaardsof tware zijn: 

Tekstverwerkers (Wordstar, WordPer- 
fect, ) 

Pakketten voor gegevensbeheer (data- 
base). Voorbeelden hiervan zijn 
DBASE, ORACLE 

Spreadsheets, in het nederlands ook 
wel electronische kladblokken genoemd 
zoals bijvoorbeeld Lotus 123, Super- 
calc etc. 

Module-bibliotheken, ook wel Tool- 
boxes genoemd. Een goed voorbeeld 
hiervan is de DOS-65 Game Library die 
in nr. 57 van De 6502 Kenner gestaan 
heeft . 

Categorie 3: Toepassings-sof tware 

In de categorie van de toepassings- of 
applicatie software valt de rest van de 
software. Dit is meestal software die voor 
een specifieke taak ontwikkeld is. Dit 
kunnen dus bijvoorbeeld programma's in 
Basic zijn maar in mijn visie ook applica- 
ties in bijvoorbeeld DBASE of Lotus 123. 
Het gebruiken van zoveel mogelijk stan- 
daard software bij het maken van applica- 
tie p rogrammatuur zorgt ervoor dat de 
ontwikkeling van deze applicatie software 
stukken eenvoudiger gaat. In het be- 
drijfsleven kan dit de kostprijs van de 
software aanzienlijk verlagen. 

De populariteit van een bepaald computer- 
systeem hangt tegenwoordig meestal niet af 



van de technische kwaliteiten maar veel 
meer van de hoeveelheid beschikbare stan- 
daardsof tware. Dit is ook logisch, want in 
het bedri j f sle ven is men niet zo zeer 
geSnteresseerd in hoe mooi het technisch 
in elkaar zit, maar veel meer wat het kost 
om een bepaald probleem met de computer op 
te lossen. Hoe meer en beter de standaard- 
software is, hoe goedkoper meestal het 
totale pakket aan toepassings-sof tware. 
Dit verklaart onder andere de populariteit 
van de PC-compatibles en MS-DOS. 

De computer: In de systeemkast 

Hoewel er ruim tien jaar tussen de KIM en 
de moderne 20 MHz 80386 systemen ligt, is 
er in de opbouw van de systemen maar wei- 
nig veranderd. De microcomputers zijn 
groter en sneller en goedkoper geworden, 
maar iets revolut ionai r s is er in die 
t:fio jaar niet gebeurd. Kortom, en nu 
schop ik misschien de bezitters van een 
modern renpaard tegen het zere been, om 
een computer te beschrijven kunnen we 
beste de KIM eens wat beter bekijken. Er 
zijn natuurlijk best verschillen, en waar 
ze relevant zijn, zal ik dat ook aangeven. 

In figuur 2 is reeds de interne opbouw van 
de KIM weergegeven, in figuur 3 is schema- 
tisch een meer algemene microcomputer 
getekend. 

Een van de meest belangrijke onderdelen 
van een computer is de processor. Dit is 
het hart van het systeem. In een computer 
wordt de processor meestal aangeduid met 
CPU van Central Processing Unit. In het 
nederlands ook wel Centrale Verwerkings 
Eenheid (CVE) genoemd. Elke computer heeft 
ean over meerdere processors. Het kenmer- 
kende van een microcomputer is het feit 
dat voor de processor een micro processor 
(MPU in figuur 3) gebruikt is. 

In vroeger tijd bestond de processor van 
grote computers (IBM 370 bijvoorbeeld) uit 
een groot aantal onderdelen. In een micro 
processor zijn deze onderdelen allemaal 
gelntergreerd in slechts eai bouwsteen: de 
micro processor. Ten opzichte van zijn 
grote broers had de micro processor minder 
snelheid en mogeli jkheden maar toch was er 
een markt voor die dingen. Tegenwoordig is 
het onderscheid niet zo duidelijk meer te 
maken, het hart van grote computers be- 
staat tegenwoordig ook vaak uit een of 
meer micro processors. Ik krijg tegenwoor- 
dig sterk de indruk dat de grootte van de 
kast bepaalt of iets een micro, mini, 
supermicro, supermini, supercomputer of 
mainframe is. 
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Fig. 3 : Architecture of a Standard Microprocessor System 



Goed, in figuur 2 en 3 zien we de CPU 
geflankeerd door in eerste instantie de 
klok. Deze levert de hartslag voor de CPU 
en de rest van de computer. De klok wordt 
gestuurd door een kristal. Het aantal 
pulsen dat de klok per seconde geeft 
(aantal hartslagen) wordt uitgedrukt in 
Hertz (Hz). Omdat de pulsen met miljoenen 
per seconde komen spreken we meestal over 
MegaHertz (MHz) wat wil zeggen miljoen 
pulsen per seconde. Nu is het zo dat, bij 
hetzelfde type processor, meer pulsen per 
seconde ook een snellere computer geeft, 
het systeem kan dan alles in minder tijd. 
Vergelijken we computers met verschillende 
types CPU, dan klopt dit niet meer, een 1 
MHz 6502 is ongeveer even snel als een 4 
MHz Z80. Bovendien kan het ook nog voorko- 
men dat het systeem weliswaar een snelle 
klok heeft maar toch niet zo snel is, 
omdat de computer gewoonweg niet alle 
pulsen gebruikt. Er worden dan dus pulsen 
overgeslagen (wait states). In grote lij- 
nen klopt het echter wel dat bij twee 
computers met dezelfde CPU de computer met 
de hoogste kloksnelheid de snelste is. 



Rechts naast de CPU vinden we het geheugen 
of hoof dgeheugen van de computer. Dat is 
in de eerste plaats geheugen waar de com- 
puter alleen uit kan en mag lezen (ROM van 
Read Only Memory) en verder geheugen waar- 
in zowel gelezen als geschreven kan worden 
(RAM Random Access Memory). De CPU kan 
alleen maar iets doen met informatie die 
in het geheugen aanwezig is. Dit betekent 
dat alle gegevens die de computer gebruikt 
in het hoof dgeheugen moeten zitten, maar 
ook het programma waarin precies staat hoe 
de computer zijn opdracht uit moet voeren. 
Een processor doet namelijk niets uit 
zichzelf. Hij kan een aantal eenvoudige 
(nou ja) instructies uitvoeren zoals bij- 
voorbeeld: 

Haal de inhoud uit geheugenplaats X 

Tel hierbij 7 op 

Schrijf het resultaat weg in Y 

De opdracht voor de processor staat in het 
geheugen als een aantal van dergelijke 
simpele instructies. 

Nu heeft RAM een heel belangrijk nadeel: 
Als de spanning wegvalt, is de inhoud van 
dit geheugen verloren. Daarom heeft een 
computer altijd een stuk ROM waarin die 
programma's staan die altijd voor de com- 
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puter beschikbaar moeten blijven. Een van 
deze programma's is bijvoorbeeld het op- 
startprogramma van de computer. 

In vroeger tijd bestond er nog geen ROM. 
Om computers op te starten moest men eerst 
een klein programmaat j e door middel van 
schakelaars in het geheugen zetten. Hierna 
liet men de computer dit stukje programma 
uitvoeren waarna de computer een ponsband 
(een reep papier met gaatjes) in liet 
lezen. Nadat dit ingelezen was, kon de 
computer de rest van de programma's van 
schijf halen. Deze handeling wordt Boot- 
strapping genoemd naar Baron von MuntKhau- 
sen die zichzelf aan zijn laarzen omhoog- 
trok. Later is Bootstrapping verkort tot 
Booten en zo is deze uitdrukking ontstaan. 

Tegenwoordig wordt er meestal gebruik 
gemaakt van EPROMs (Eraseble Programmable 
Read Only Memory). Dit wil dus zeggen dat 
deze ROM's eventueel weer gewist en op- 
nieuw geprogrammeerd kunnen worden. 

Om met de buitenwereld te kunnen communi- 
ceren, heeft de computer nog een stuk 
programmeerbare 1/0. Hierop kunnen termi- 
nals, toetsenborden, muizen, beeldschermen 
etc. aangesloten worden. In figuur 3 wor- 
den dit I/O devices genoemd. 

Als laatste heeft een computer meestal een 
aansluiting voor massageheugen. Strikt 
genomen is dit vanuit de CPU gezien ook 
een programmeerbaar stuk I/O; het maakt 
namelijk voor de CPU niets uit of hij zijn 
gegevens van een muis, een toetsenbord, of 
van een schijf krijgt. Ook voor de uitvoer 
maakt het niets uit of de informatie naar 
een printer, een beeldscherm of een schijf 
moet . 

In figuur 3 is door middel van een drietal 
brede pijlen aangegeven hoe de CPU met 
zijn omgeving communiceert . Deze drie 
pijlen bestaan in werkeli jkheid uit drie 
bossen draad. Deze bossen draad worden de 
bussen genoemd. De bussen lopen langs de 
diverse bouwstenen. Elke bouwsteen krijgt 
hierbij een aftakking van de bussen. In de 
praktijk zijn deze bossen draad meestal 
groepen print sporen, soms (DOS-65) 
is er zelfs een print waar alleen de 
bussen op zitten. Op deze zogenaamde bus- 
print zitten dan connectors waarop de 
printkaarten waaruit het systeem opgebouwd 
IS worden aangesloten. 

1: De adresbus. 

Elke geheugenplaats in een computer heeft 
een uniek adres. Door het aanspreken van 
dit adres kan men de inhoud van deze ge- 



heugenplaats lezen of schrijven. Het adres 
van de geheugenplaats wordt uitgedrukt in 
een binair getal en de bits van dit getal 
worden langs de adresbus naar het geheugen 
gevoerd. Het aantal draadjes in de adres- 
bus bepaalt de maximale hoeveelheid geheu- 
gen die de CPU aan kan spreken. Bij de 
6502 zijn dit 16 draadjes waarmee deze 
processor 65536 geheugenplaatsen kan bena- 
deren. De 68000 heeft een adresbus van 24 
draadjes waarmee ruim 16 miljoen geheugen- 
plaatsen bereikt kunnen worden. De grootte 
van een geheugenplaats is, bij mijn weten, 
bij alle gangbare microprocessors 8 bits. 
Dit wil zeggen dat er een binair getal van 
acht posities in past. Elke positie in 
zo'n getal kan de waarde 0 of 1 aannemen. 
Een groepje van 8 bits wordt ook wel een 
byte genoemd. 

2: De databus. 

Als de processor een adres op de adresbus 
gezet heeft, kan hij de inhoud van de 
aangesproken geheugenplaats benaderen. Dit 
doet hij via de databus. Het aantal draad- 
jes in de databus bepaalt hoeveel informa- 
tie er in een keer van of naar het geheu- 
gen getransporteerd wordt. Bij de 6502 
zijn dit 8 bits, dus de volledige inhoud 
van een geheugenplaats. Bij de 8086 bij- 
voorbeeld zijn dit 16 bits, dit is de 
inhoud van twee geheugence lien. In de 
praktijk is dit dan de inhoud van de ge- 
adresseerde eel plus de inhoud van de eel 
met het naast hoger gelegen adres. Voor 
enkele processoren zijn er dan wel beper- 
kingen aan het aangeboden adres (68000) 
maar dat voert mij op dit moment te ver. 
De breedte van de databus wordt meestal 
als kengetal voor de processor aangemerkt. 
Een processor met een databus van 8 bits 
heet dan een 8 bitter of een 8 bits CPU en 
die met een databus van 16 bits een 16 
bitter. 

3: De Control bus. 

Over de control bus wordt stuurinf ormatie 
uitgewisseld. Voorbeelden hiervan zijn 
o.a. een signaal dat aangeeft of een ge- 
heugenplaats gelezen of beschreven moet 
worden, een signaal dat aangeeft dat er 
een adres op de adresbus staat, signalen 
die de processor een seintje geven dat een 
1/0-bouwsteen hulp nodig heeft etc. etc. 
Ook in de control bus zijn verschillen 
tussen de diverse typen processoren, deze 
zullen bij de bespreking van de werkwijze 
van de processor verder behandeld worden. 

Aan het einde van deze paragraaf nog een 
zaak die de wereld van de micro processors 
in twee kampen verdeeld heeft. Bij een 
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deel van de processors (6502, 6800, 6809, 

68000 ) worden de I/O-bouwstenen als 

onderdeel van het geheugen beschouwd. Dit 
wil zeggen dat een I/O-bouwsteen zich voor 
de processor net zo gedraagt als een ge- 
heugencel. Er is dus bijvoorbeeld een 
geheugencel die alle aangeboden informatie 
meteen op papier afdrukt. Dit wordt Memory 
Mapped 1/0 genoemd. 

Het tweede kamp bestaat uit bijvoorbeeld 

de 8080, 8088, Z80 Deze processors 

zien de 1/0-bouwstenen niet als geheugen- 
cel maar als aparte onderdelen. 0m deze 
onderdelen te benaderen zijn er dus ook 
aparte bussen en instructies nodig. In 
principe maakt het natuurlijk niets uit 
maar in de praktijk had dit wel tot gevolg 
dat tot voor kort gesteld werd dat de 
68000 wel en de 8088 niet in de KIM Ge- 
bruikersgroep thuishoort. 

Voorbeeld: De KIM. 

Het hart van de KIM wordt gevormd door een 
1 MHz 6502, geflankeerd door 1024 RAM 
geheugencellen en 2 6530 bouwstenen. Elke 
6530 heeft onder andere de beschikking 
over 2 I/O poorten met 8 lijnen per stuk, 
64 geheugencellen van 8 bits (byte) en 
1024 ROM geheugencellen. Verder zijn er 
mogelijkheden met behulp van de connectors 
dit systeem uit te breiden. 

Op de I/O lijnen zijn het toetsenbord en 
het display aangesloten. Verder zijn er 
aansluitingen voorzien voor een terminal 
(TeleType of TTY, een grote zware kast die 
een hoop herrie maakt met een toetsenbord 
en een bolletje die de uitvoer op papier 
hamert) en een cassette recorder. De 1/0- 
lijnen van de tweede 6530 zijn vrij voor 
de gebruiker beschikbaar. 

In het ROM gedeelte zit het zogenaamde 
Monitor-programma. Met dit programma kan 
men informatie vanaf het toetsenbordje in 
het geheugen zetten en het geheugen met de 
displays uitlezen. Verder bevat het pro- 
gramma ook routines om informatie met de 
TTY uit te wisselen en om stukken geheugen 
op cassette weg te schrijven of van cas- 
sette in te lezen. 

Al met al was dit voor zijn prijs (+/- fl. 
1000) in die tijd een leuk systeem met 
zeer veel mogelijkheden. Vooral de vrij 
beschikbare I/O-lijnen vormen voor de 
echte knutselaars natuurlijk een enorme 
uitdaging. Bij dit systeem is in de loop 
der tijd van alles bijgekomen, Basic, 
Assemblers, diskettestations, terminals, 
meer geheugen etc. etc. De Junior van 
Elektuur is een afgeleide van de KIM. 



Voorbeeld: een PC-compatible of -kloon 

Vergelijken we een willekeurige PC-kloon, 
met de KIM dan blijken de verschillen 
behalve in de CPU (6502 versus 8088) voor- 
namelijk in de aantallen te liggen. Een 
kloon heeft al gauw 650.000 geheugencellen 
RAM en ook zo'n 128.000 geheugencellen 
ROM. Verder is de snelheid van het systeem 
ook wat groter als die van de KIM. Het 
grote verschil is het f eit dat de KIM aan 
alle kanten aansluitingen voor knutselaars 
heeft, terwijl dit bij de kloon niet zon- 
dermeer het geval is. 

Als laatste belangrijke verschil vallen de 
ingebouwde diskettestations, het toetsen- 
bord en het beeldscherm op. Toch is de 
interne opbouw niet echt verschillend van 
figuur 3, alleen het beeldscherm past niet 
goed in dit plaatje. In een volgende afle- 
vering zal dit verder uit de doeken gedaan 
worden. 

Opvallend is, dat de PC-compatible nu ook 
zo'n fl 1000, — kost en ook de standaard 
hobby computer geworden is. 



Te koop: 

Wegens overcompleet biedt het bestuur te 
koop aan: 

Een originele Apple 11 plus met de 
volgende toebehoren: 

Z80 kaart 
Printerkaart 
Super Serial kaart 

- Floppy controler met een originele 
Apple diskdrive 

- Een originele Apple monochroom moni- 
tor 

Veel software voor Apple DOS en CP/M 

Vraagprijs fl. 500, — 

Inlichtingen bij : 

Gert Klein 
Diedenweg 119 
6706 CM Wageningen 
08370-23646 
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Kalender 

Hierbij een programma in Pascal. Dit programma is niet getest onder DOS-65 Pascal maar 
zou wel op een DOS-65 systeem moeten kunnen lopen. 
De volgende punten zijn hierbij van belang: 

Omdat in de namen een underscore ' * voorkomt, moet hiervoor een compiler-optie 

meegegeven worden (Zie document at iej. 

De regels met ASSIGN en CLOSE in het hoof dprogramma moeten verwijderd worden. Om de 
filenaam toe te kennen, moet deze bij het opstarten meegegeven worden. 

Mocht u bijzondere dingen tegen komen, laat mij het dan even weten. 

Veel succes . 

1 PROGRAM KALENDER( INPUT, OUTPUT, KALENDER); 

2 

3 (* 

4 * Dit programma genereert een kalender voor een in te geven jaar. 

5 * De kalender wordt op de terminal getoond en weggeschreven in een 

6 * file die door de interne f ile-variabele KALENDER wordt aangegeven. 

7 * 

8 * Het programma is geschreven in ISO Pascal en uitgetest op een Apple II 

9 * compatible met Z80-kaart , CP/M en TurboPascal. 

10 * 

11 * Het programma is geschreven door: 

12 * 

13 * Gert van Opbroek Version 1.0/27-11-1988 

14 * Bateweg 60 

15 * 2481 AN Woubrugge 

16 * 01729-8636 

17 * 

18 * (c) Copyright: KIM Gebruikergroep Nederland 

19 * Het programma mag vrij verspreid worden. 

20 * Publicatie van het programma of delen daarvan is slechts 

21 * toegestaan na schrif telijke toestemming van het bestuur 

22 * van de KGN. 

23 *) 
24 

25 CONST C_Bovengrens = 2150; (* Hoogste toegestane jaartal *) 

26 C_Ondergrens = 1850; (* Laagste toegestane jaartal *) 
27 

28 (* 

29 * Constantes voor het schoonmaken van datastructuren en de namen 

30 * van de dagen van de week en de maanden 

31 *) 

32 



33 


C 72 Spaties 
















34 


















35 


C 8 Spaties 


= 






C Wo 




WO '; 
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C Zo 






ZO '; 


C Do 


= 


DO '; 
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C Ma 






MA '; 


C Vr 




VR '; 
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C_Di 




*- 


DI '; 


C_Za 




ZA '; 
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C Jan 






JANUARI ' ; 


C Jul 




JUL I 


— 

i 
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C Feb 




- 


FEBRUARI '; 


C_Aug 




" AUGUSTUS 


) 


42 


C Mrt 






MAART 


C Sep 




'SEPTEMBER 


i 


43 


C_Apr 


- 




APRIL ' ; 


crokt 




' OKTOBER 


i 
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44 CJMei = ' ME I '; C_Nov = ' NOVEMBER '; 

45 C_Jun = ' JUNI '; C Dec = ' DECEMBER '; 

46 ~ 

47 TYPE (* 

48 * Types om gemakkelijk met arrays van letters (teksten) om te kunnen 

49 * gaan. 

50 * 

51 * NB. De toevoeging 'PACKED' betekent dat er een minimale hoeveelheid 

52 * ruimte gereserveerd moet worden: per letter dus 1 byte 

53 *) 
54 

55 T_C2 = PACKED ARRAY [1.. 2] OF CHAR; 

56 T_C3 = PACKED ARRAY [1.. 3] OF CHAR; 

57 T_C7 = PACKED ARRAY [1.. 7] OF CHAR; 

58 T_C8 = PACKED ARRAY [1.. 8] OF CHAR; 

59 T_C10 = PACKED ARRAY [1..10] OF CHAR; 

60 T_C32 = PACKED ARRAY [1..32] OF CHAR; 

61 T_C72 = PACKED ARRAY [1..72] OF CHAR; 
62 

63 (* 

64 * Type om per regel, per maand de data die op een bepaalde weekdag 

65 * vallen in op te slaan. Voor de data zijn drie letters gereserveerd 

66 * waarvan er maximaal 2 gebruikt zullen worden, de derde is de 

67 * de scheiding tussen de data. 

68 *) 
69 

70 T_MaandInfo = PACKED RECORD 

71 VoorloopSpaties : T_C3; 

72 Weekdagen : PACKED ARRAY [0..5] OF T_C3 ; 

73 NaLoopSpaties : T_C3; 

74 END; 
75 

76 (* 

77 * Type om op eenvoudige wijze per kwartaal de kopregel af te 

78 * kunnen drukken. 

79 *) 
80 

81 T_MaandKop = PACKED RECORD 

82 VoorloopSpaties : T_C7 ; 

83 MaandNaam : T_C10; 

84 NaloopSpaties : T_C7 ; 

85 END; 
86 

87 (* 

88 * Type om op eenvoudige wijze de layout van een regel mee op te 

89 * maken. Een regel begint altijd met een weekdag, waarin eventueel 

90 * alleen spaties staan. Verder zijn er een aantal mogelijkheden. 

91 * 

92 * 1: Beschouw de rest van de regel als een geheel. Deze mogelijkheid 

93 * wordt gebruikt om: 

94 * een regel in een keer met spaties te vullen 

95 * een regel af te drukken 

96 * 2: Een datastructuur waarmee het jaartal afgedrukt wordt. 

97 * 3: Een datastructuur waarmee per kwartaal de namen van de maand 

98 * afgedrukt kunnen worden. 

99 * 4: Een datastructuur waarmee van een kwartaal per weekdag de data 
100 * waarop die weekdag valt afgedrukt kan worden. 
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101 * 

1° 2 * Een dergelijke opbouw van van record worden VAR1ANTEN genoemd. 

103 * Ook hier is het woord PACKED toegevoegd om er zeker van te zijn 

104 * dat de minimaal benodigde ruimte gebruikt wordt en alle velden 

105 * in het record aansluitend achter elkaar liggen. 

106 *) 
107 

108 (* 

109 * Het record bezit vier mogelijkheden 

110 *) 
111 

112 T_Mogelijkheid = 1..4; 

113 

114 T_Regel = PACKED RECORD 

115 Weekdag : T_C8; 

116 CASE T_Mogelijkheid OF 

117 1: ( Regel_Totaal : T_C72); 

118 2: ( Voorloop : T_C32; 

119 Jaartal : T_C8; 

120 Naloop : T_C32); 

121 3: ( KopRegel : PACKED ARRAY [1..3] OF T_MaandKop ) ; 

122 4: ( Maandlnfo : PACKED ARRAY [1..3] OF T Maandlnf o) ; 

123 END; ~ 
124 

125 (* 

126 * Enummeratie-type met de maanden van het jaar. In dit type worden 

127 * de maanden van het jaar opgesomd. 

128 *) 
129 

130 T_E_Maand = (E_Jan,E_Feb,E_Mrt ,E_Apr ,E_Mei,E_Jun, 

131 E Jul.E Aug ,E Sep,E 0kt,E Nov,E Dec); 
132 

133 (* 

134 * Variabelen die in het hele programma bereikt kunnen worden. 

135 *) 
136 

137 VAR KALENDER : TEXT; 

138 Kwartaal : INTEGER; 

139 Jaar : INTEGER; 
140 

141 (* 

142 * Fuctie DagFactor is een oude bekende . Deze functie is onder andere 

143 * gebruikt in het programma Datum — > Weekdag conversie 

144 * uit De 6502 Kenner nr. 53. Dit betrof toen een versie in C. 

145 * 

146 * Het algoritme is afkomstig uit de programma ROM van een TI 58 

147 * rekenmachine . 

148 * 

149 * DagFactor berekent bij de ingevoerde dag, maand en jaar een dagnummer. 

150 * dit dagnummer is uniek. Door het dagnummer modulo 7 te nemen, krijgen 

151 * we een getal dat de dag in de week aangeeft. Hierbij krijgt de zondag 

152 * de waarde nul. Door voor de deling 1 van het dagnummer af te trekken, 

153 * wordt er voor gezorgd dat de week begint op maandag . 

154 * 

155 * De datum wordt in waarde- (VALUE) parameters doorgegeven, de dag in 

156 * de week wordt als referentie- (REFERENCE) parameter teruggegeven dit wil 

157 * zeggen dat bij de aanroep het startadres van de parameter doorgegeven 
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158 * wordt. Deze variabele kan dus door DagFactor gewijzigd worden. 

159 * 

160 * Als functieresultaat wordt doorgegeven of de ingevoerde datum bestaat 

161 * en of het jaartal in het vastgestelde gebied ligt . 

162 *) 
163 

164 FUNCTION DagFactor( P_Dag : INTEGER; 

165 P_Maand : T_E_Maand; 

166 P_Jaar : INTEGER; 

167 VAR P Weekdag : INTEGER) : BOOLEAN; 
168 

169 (* 

170 * Locale variabelen die alleen in DagFactor benandert kunnen worden. 

171 *) 
172 

173 VAR Factor : INTEGER; 

174 Parameters_0K : BOOLEAN; 

175 Klad : INTEGER; 
176 

177 BEGIN 
178 

179 (* 

180 * Controleer eerst of de datum bestaat. 

181 *) 

182 (* 

183 * Het jaar: 

184 *) 
185 

186 Parameters_OK := (P Jaar >= C Ondergrens) AND (P Jaar <= C Bovengrens); 

187 ~~ " 

188 IF Parameter s_0K THEN 

189 CASE P_Maand OF 
190 

191 (* 

192 * De dag voor de maanden met 31 dagen 

193 *) 
194 

195 E_Jan,E Mrt.E Mei,E Jul,E Aug,E Okt,E Dec : 

196 _____ 

197 Parameters_OK := (P Dag >= 1) AND (P Dag <= 31); 

198 ~ 

199 (* 

200 * De dag voor de maanden met 30 dagen 

201 *) 
202 

203 E_Apr,E_Jun,E_Sep,E Nov : 

204 

205 Parameters_OK := (P_Dag >= 1) AND (P_Dag <= 30); 

206 

207 (* 

208 * De dag voor de maand fedruari 

209 *) 
210 

211 E_Feb : 

212 

213 (* 

214 * Schrikkeljaren: Jaren deelbaar door vier en eeuwjaren deelbaar 
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215 * door 400 

216 *) 
217 

218 IF (P_Jaar MOD 4=0) AND (( P_Jaar MOD 100 <> 0) OR 

219 ( p_Jaar MOD 400 = 0)) THEN 

220 Parameters_0K := (P_Dag >= 1) AND (P_Dag <= 29) 

221 ELSE Parameters OK := (P Dag >= 1) AND (P Dag <= 28); 

222 _ _ _ 

223 END; (* CASE *) 
224 

225 IF Parameters_0K THEN 

226 BEGIN 
227 

228 (* 

229 * Bereken de dagf actor; ORD geeft het volgnummer van de maand. 

230 *) 
231 

232 Klad := P Jaar - 1985 ; (* Anders Overflow *) 

233 

234 Factor := 365 * Klad - 4 + P Dag + 

235 31 * (0RD(P MaandT - 0RD(E Jan)); 
236 

237 IF P_Maand <= E_Feb THEN 

238 Factor := Factor + (P_jaar - 1) DIV 4 - 

239 3 * ((P_Jaar - 1) DIV 100 + 1) DIV 4 

240 ELSE 

241 Factor := Factor - (4 * (0RD(P_Maand) - 0RD(E_Jan) + 1) + 23) DIV 10 + 

242 P_Jaar DIV 4 - 

243 3 * (P Jaar DIV 100 + 1) DIV 4; 
244 

245 (* 

246 * Bepaal de bijbehorende dag in de week, maandag = 0; 

247 *) 
248 

249 P_Weekdag := (Factor - 1) MOD 7 ; 

250 END; 

251 DagFactor := Parameters_0K; 

252 END; 
253 

254 (* 

255 * Procedure Jaartal drukt het jaartal in de kop van de kalender af . 

256 * Het betreffende jaartal wordt als waarde (VALUE) parameter meegegeven, 

257 * hetgeen betekent dat bij de aanroep de waarde van de parameter gekopieerd 

258 * wordt zodat Jaartal het orgineel niet kan veranderen. 

259 *) 
260 

261 PROCEDURE Jaartal (P_Jaar : INTEGER); 

262 

263 (* 

264 * Lokale variabelen binnen Jaartal, deze kunnen niet buiten Jaartal 

265 * benaderd worden. 

266 *) 
267 

268 VAR Regel : T_Regel; 

269 1 : INTEGER; 
270 

271 BEGIN 
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272 

273 (* 

274 * Test voor de zekerheid het waardenbereik van de parameter af , geef 

275 * een foutmelding als dit niet deugd. 

276 *) 
277 

278 IF (P_Jaar < C_Ondergrens) OR (P_Jaar > C_Bovengrens) THEN 

279 BEGIN 

280 WRITELN( '»»»»» FOUT IN JAARTAL ',P_Jaar,' «««««'); 

281 WR1TELN(KALENDER, '»»»»» FOUT IN JAARTAL ',P_Jaar,' «««««'); 

282 END ELSE 
283 

284 (* 

285 * In het volgende deel moeten we binnen de datastructuur Regel zijn, 

286 * door het WITH statement te gebruiken hoeven we niet steeds de 

287 * toevoeging Regel. te gebruiken. 

288 *) 
289 

290 WITH Regel DO 

291 BEGIN 
292 

293 (* 

294 * Vul de hele datastructuur met spaties 

295 *) 
296 

297 Weekdag := C_8_Spaties; 

298 Regel_totaal := C_72_Spaties; 
299 

300 (* 

301 * Neem het jaartal teken voor teken over in de datastructuur, te 

302 * beginnen bij het laatste teken. 

303 *> 
304 

305 FOR I := 3 D0WNT0 0 DO 

306 BEGIN 

307 Jaartal [2 * I + 1] := CHR((P_Jaar MOD 10) + ORD('O')); 

308 P_Jaar := P_Jaar DIV 10; 

309 END; 
310 

311 (* 

312 * Druk de regel met het jaartal af . 

313 *) 
314 

315 WRITELN( Weekdag, Regel_Totaal) ; 

316 WR1TELN(KALENDER, Weekdag, Regel_Totaal); 

317 END; 

318 END; 
319 

320 (* 

321 * Procedure Kopregel drukt per kwartaal een kop met de maanden in dat 

322 * kwartaal af . Het kwartaal waarvoor dit moet gebeuren wordt als waarde- 

323 * (VALUE) parameter meegegeven. 

324 *) 
325 

326 PROCEDURE Kopregel(P_Kwartaal : INTEGER); 
327 

328 (* 
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329 * Lokale variabelen binnen Kopregel 

330 *) 
331 

332 VAR Regel : T Regel; 
333 

334 BEGIN 

335 WRITELN; WRITELN(KALENDER) ; 

336 WRITELN; WRITELN(KALENDER) ; 
337 

338 (* 

339 * Voor de zekerheid eerst even de parameter aftesten en eventueel 

340 * een foutmelding geven. 

341 *) 
342 

343 IF (P_Kwartaal < 1) OR (P_Kwartaal > 4) THEN 

344 BEGIN 

345 WRITELN( '»»»»» Fout in kwartaal ' ,P_Kwartaal,' «««««'); 

346 WRITELN(KALENDER, '»»»»» Fout in kwartaal ' ,P_Kwartaal , ' «««««'); 

347 END ELSE 
348 

349 (* 

350 * een WITH-statement om ons onnodig typewerk te besparen. 

351 *) 
352 

353 WITH Regel DO 

354 BEGIN 
355 

356 (* 

357 * Vul de datastructuur met spaties. 

358 *) 
359 

360 Weekdag := C_8_Spaties; 

361 Regel_Totaal := C_72_Spaties ; 
362 

363 (* 

364 * Nu voor een kwartaal de kopinf ormatie invullen. Het CASE-statement 

365 * selecteert het juiste kwartaal. Dat blok waarvan het label overeen- 

366 * komt met het kwartaal wordt namelijk uitgevoerd. 

367 *) 
368 

369 CASE P_Kwartaal OF 

370 1: BEGIN 

371 Kopregel[ 1] .MaandNaam := C_Jan; 

372 Kopregel [2] .MaandNaam := C_Feb; 

373 Kopregel [3] .MaandNaam := C_Mrt 

374 END; 

375 2: BEGIN 

376 Kopregel[l] .MaandNaam := C_Apr; 

377 Kopregel [2] .MaandNaam := C_Mei; 

378 Kopregel [3] .MaandNaam := C_Jun 

379 END; 

380 3: BEGIN 

381 Kopregel[l] .MaandNaam := C_Jul; 

382 Kopregel [2] .MaandNaam := C_Aug; 

383 Kopregel [3] .MaandNaam := C_Sep 

384 END; 

385 4: BEGIN 
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386 
387 
388 
389 
390 
391 
392 
393 
394 
395 
396 
397 
398 
399 
400 
401 
402 
403 
404 
405 
406 
407 
408 
409 
410 
411 
412 
413 
414 
415 
416 
417 
418 
419 
420 
421 
422 
423 
424 
425 
426 
427 
428 
429 
430 
431 
432 
433 
434 
435 
436 
437 
438 
439 
440 
441 
442 



Kopregelf 1] .MaandNaam := C_0kt; 
Kopregel[2] .MaandNaam := C_Nov; 
Kopregel[ 3] .MaandNaam := C_Dec 
END; 

END; 
(* 

* Nu de kop nog even afdrukken en klaar is Kees 
*) 

WRITELN(Weekdag,Regel_Totaal) ; 
WRlTELN(KALENDER,Weekdag , Regel Totaal) 
END; 

WR1TELN; WRITELN(KALENDER) 
END; 

(* 

* Procedure DataRegels genereert voor het als parameter doorgegeven kwartaal 

* de dataregels. Het kwartaal en het jaar worden als waarde- (VALUE) 

* parameter doorgegeven. 
*) 

PROCEDURE DataRegels (P_Kwartaal,P_Jaar : INTEGER); 
(* 

* Locale variabelen 
*) 

LABEL 999; 

VAR Startdagen : ARRAY [1..3] 

Maanden : ARRAY [1..3] 

1 ,J,K,I_Weekdag: INTEGER; 
Dag : INTEGER; 

Regel : T Regel; 



(* Uitsluitend voor f outsituaties *) 
OF INTEGER; 
OF T E Maand; 



BEGIN 

IF (P_Kwartaal >= 
BEGIN 



0) AND (P Kwartaal <= 4) THEN 



(* 

* Vul de maanden in de array in, het eerste element wordt handmatig 

* gevuld, de overige elementen zijn de opvolger (SUCCessor) van het 

* eerste resp. de tweede element. 
*) 



CASE P_Kwartaal OF 
1 : Maanden [ 1 ] 
2: Maanden[l] 
3: Maanden[l] 



4: 
END; 



Maandenfl] 



E_Jan; 
E_Apr ; 
E_Jul; 
E Okt; 



Maanden[2] := SUCC (Maanden [ 1 ]) ; Maanden [3] := SUCC (Maanden [ 2] ) ; 
(* 



IOIEH 
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443 
444 
445 
446 
447 
448 
449 
450 
451 
452 
453 



455 
456 



458 
459 
460 
461 
462 
463 



466 
467 
468 
469 
470 
471 
472 
473 
474 



476 
477 
478 
479 
480 
481 
482 
483 
484 
485 
486 
487 
488 
489 
490 
491 
492 



494 



496 
497 
498 
499 



* Bepaal m.b.v. DagFactor de startdagen van de eerste rij voor de 

* drie maanden. 
*) 

FOR I := 1 TO 3 DO 

IF NOT DagFactor(l,Maanden[I] ,P_Jaar,I_Weekdag) THEN 
BEGIN 

WR1TELN( '»»»»» Ernstige fout opgetreden «««««'); 
WR1TELN(KALENDER, '»»»»» Ernstige fout opgetreden «««««'); 
GOTO 999; 
END ELSE 

(* 

* Valt de eerste van de maand op maandag, dan meteen beginnen, 

* anders eerst enkele dagen overslaan d.m.v. een illegale datum 
*) 

StartDagenfl] := 1 - I_Weekdag; 

WITH Regel DO 

FOR K := 0 TO 6 DO 
BEGIN 

(* 

* Initialiseer de datastructuur 
*) 



RegelJTotaal 
CASE K OF 

1: Weekdag 

2: Weekdag 

3: Weekdag 

4 : Weekdag 

5: Weekdag 

6: Weekdag 
END; 



- C_72_Spaties; 

- C_Ma; 

- C_Di; 

- C_Wo; 

- C_Do; 

- C_Vr; 

- C_Za; 

- C ZO 



FOR J 1 TO 3 DO 
FOR I :« 0 TO 5 DO 
BEGIN 

Dag Startdagen[J] + 7 * I + K; 
IF DagFactor(Dag, Maanden [J] ,P_Jaar,I 
BEGIN 

Maandinfo[J] .Weekdagen[I ,3] CHR(Dag MOD 10 + ORD('O')); 

IF Dag >- 10 THEN 

Maandinfo[J] .Weekdagen[I,2] := CHR(Dag DIV 10 + ORD('O')); 

END; 



END; 



WRITELN( Weekdag, Regel_Totaal) ; 
WRITELN(KALENDER, Weekdag, Regel Totaal) ; 



999: 
END; 
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500 (* 

501 * Het hoof dprogramma. 

502 *) 
503 

504 BEGIN 

505 (* 

506 * De volgende statement is systeemaf hankelijk en moet aan uw 

507 * eigen systeem aangepast worden. 

508 *) 
509 

510 ASS1GN(KALENDER, 'KALENDER. LIS' ) ; 
511 

512 (* 

513 * Geef aan dat de file KALENDER geopend moet worden voor schrijven, de 

514 * oude inhoud gaat hiermee verloren. 

515 *) 
516 

517 REWR1TE( KALENDER); 
518 

519 (* 

520 * In deze REPEAT- lus wordt de invoer ingelezen. De lus wordt pas verlaten 

521 * nadat er correcte invoer ingelezen is. 

522 * 

523 * NB. Het invoeren van iets anders dan een getal doet het programma 

524 * crashen. In echt gebruikersvriendeli jke software zou dit ook 

525 * ondervangen moeten worden. 

526 *) 
527 

528 REPEAT 

529 WRITE( 'Geef het jaartal >= ' ,C_0ndergrens , ' <= ',C Bovengrens,' : '); 

530 READLN(Jaar); ~ 

531 UNTIL (Jaar >= C_Ondergrens) AND (Jaar <= C Bovengrens); 
532 

533 (* 

534 * Geef het jaartal uit . 

535 *) 
536 

537 Jaartal(Jaar) ; 
538 

539 (* 

540 * Geef per kwartaal de kop en de kalender uit. 

541 *) 
542 

543 FOR Kwartaal := 1 TO 4 DO 

544 BEGIN 

545 Kop regel( Kwartaal) ; 

546 DataRegels(Kwartaal,Jaar) 

547 END; 
548 

549 (* 

550 * Het volgende statement is systeemaf hankelijk en moet evt . aangepast 

551 * worden aan uw eigen systeem. 

552 *) 
553 

554 
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De IBM-PC en z'n klonen (Deel 1). 

Door: Nico de Vries. 

In de vorige nummers heeft u, misschien zelfs wel tot uw grote schrik, kunnen lezen 
dat net bestuur met de club een beetje een andere kant op wil. Een van die kanten is 
de wereld van MS-DOS, IBM, klonen uit de orient en dus Intel 80XXX processoren. Nu 
kan ik mij voorstellen dat lang niet iedereen nu precies weet hoe het technische hoe 
waarom van de 'PC' en zijn klonen in elkaar zit. Dat wordt nog een beetje bemoeilijkt 
door het feit dat er voor ons 6502-kenners een buitengewoon maffe processor in die 
apparaten zit. Ook draagt de meestal ronduit gebrekkige documentatie van de meeste 
klonen niet bij tot een goed inzicht in de hard- en softwaremogelijkheden van de PC. 

Daarom deze artikelreeks. Het is bedoeld om de lezer een inzicht geven wat er aan 
techniek schuil gaat achter de MS-DOS prompt. Ook is het de bedoeling uw 
belangstelling te prikkelen voor de PC als doel van uw hobby, en niet als middel 
en/of gereedschap in het dagelijkse leven. De PC is technisch net zo interessant als 
een DOS-65 of een Octopus computer. Er is maar 1 verschil: hij is kant en klaar 
gekocht, en niet zelf gebouwd. 
Boven dit artikel staat: Deel 1. De delen 2 en 3 zullen heus wel volgen, ik heb stof 
enoeg. Vfelk nummer het laatste deel gaat krijgen weet ik niet. Dat is niet gepland. 
e zien wel. Ik weet ook niet alles van PC's en MS-DOS. Er kunnen dus best fouten en 
onvolkomenheden in dit verhaal staan. Maar de grote lijn, die klopt wel 



1.1. Geschiadenia. 

Je moet altijd bij het begin beginnen, 
wil je tenminste begrijpen waarom een 
aantal dingen vandaag de dag zijn, zoals 
ze zijn. Dit geldt ook voor PC s, en in 
het bijzonder voor de AT. 

Wacht eens even .... Daar staan al twee 
dingen die uitleg behoeveni Wat verstaan 
we eigenlijk onder een PC in dit ver- 
band? Dat is niet zo moeilijk: dat zijn 
alle computers die enigszins compatibel 
zijn met of zelfs sterk lijken op de 
oorspronke 1 ij ke IBM-PC . Derge 1 lj ke 
computers hebben een 8088 (of sons een 
8086) CPU. Een AT is een computer die 
opwaarts compatibel is met een PC m»nr 
die is uitgerust met een 16-bit pro- 
cessor : de 80286 . 

Maar terug naar het begin. Na de uit- 
vinding van de microprocessor verschenen 
er een aantal verschillende op de markt. 
Je kunt twee oer-processors onderschei- 
den: de Intel 8080 (afgeleid van de al- 
lereerste 4004, en de latere 8008), en 
de Motorola 6800. Zeer spoedig daarna 
volgde de ons wel bekende 6502, die 
strikt genomen van de 6800 is afgeleid. 
Omdat de 6502 al zo oud is, wordt hij 
meestal ook bij de oer-CPU's gerekend. 
De 6800 en de 8080 verschilden op 1 
belangrijk punt van elkaar: de 6800 (en 
ook de 6502) heeft de 1/0 gewoon in de 
geheugenmap zitten, dat wil zeggen, er 
is geen verschil in geheugen en I/O. De 
Intel 8080 daarentegen heeft aparte in- 
structies en ook aparte stuurlijnen om 
1/0 aan te kunnen sturen. 

Het duurde niet lang, of er verschenen 
kleine printjes met wat RAM, een debug- 
ger in ROM, een cassette- interface en 
een hexdisplay op de markt: de kits. De 
KIM-1 was een van die kits en zo popu- 
lair dat onze club erdoor ontstaan is. 
De kit was eigenlijk bedoeld als studie- 
hulp bij het evalueren van een CPU, maar 
werd in de praktijk ook gebruikl t voor 
het maken van kleine besturinkjes. 



Hogere programmeertalen waren er niet, 
en assemblers nauwelijks. Alles ging in 
hex en op cassettetapet 

Na een tweetal jar en veranderde de 
wereld van de microprocessors als bij 
d onder slag: Commodore kwam op de markt 
met een apparaat met de weinig flat- 
teuze naam PET. Dit was een computer 
met voor die tijd een redelijke hoe- 
veelheid RAM (4 of 8 kbyte), een inge- 
bouwde cassetterecorder met interface, 
een compleet toetsenbord (met grafische 
symbolen), een scherm en als klap op de 
vuurpijl een BASIC interpreter. Plotse- 
ling kom men comfortabel werken, mede 
dankzij een uitstekende schermeditor . 
De PET werd een enorm succes. 

Zeer kort daarna verschenen nog twee 
computers op ongeveer hetzelfde stra- 
mien: de Apple en de Tandy TRS-80. Deze 
apparaten hidden veel met de PET ge- 
meen: BASIC, cassette-ops lag, een 
scherm (zonder schermeditor), en een 
compleet, volwaardig toetsenbord. 

De Apple had net als de PET een 6502 
CPU, en bezat voor die tijd iets bij- 
zonders: uitbreidingsslots. In deze 
slots kon men bijvoorbeeld een printer- 
interface steken, of (later) een floppy 
disk controller. Voor deze slots is een 
veelheid aan kaarten en kaartjes op de 
markt verschenen. De populairste was 
waarschijnlijk het Z-80 kaartje, waar- 
door de Apple ook CP/M kon draaien. 

De TRS-80 viel op door het feit dat de 
computer modulair was opgezet: door het 
bijkopen van allerlei extra's kon het 
apparaat buitengewoon ver worden uit- 
gebreid, tot 48k RAM en schijven toe, 
die in die tijd zeer kostbaar waren. 

Deze drie oer-machines evolueerden 
ieder op hun eigen manier verder. Er 
verschenen apparaten die duidelijk op 
het kantoor waren toegespitst (CBM 8032 
bijvoorbeeld) of juist voor de huis- 
kamer (VTC-20). Een paar dingen b leven 
consequent standaard: BASIC in ROM en 
een cassetteinterface voor de opslag. 



48 



Ondertussen stonden de ontwikkelingen 
niet stil. De 8080 kreeg een krachtiger 
opvolger in de vorm van de Z-80 van 
Zilog. Zilog kreeg meteen een proces aan 
zijn broek: de Z-80 kon namelijk alle 
8080 programma's draaien maar had een 
aanzienlijk krachtiger instruct ieset, 
die in grootte alle tot dan toe bekende 
processoren overtrof. Bij een groot aan- 
tal mensen heeft hierdoor het misver- 
stand postgevat dan de Z-80 de krach- 
tigste 8-bit processor is. Dit is on- 
juist: dat is nog steeds de 6502 

De industrie en het bedrijfsleven waren 
inmiddels ook met microcomputers begon- 
nen, en kregen in het beginstadium last 
van het feit dat er geen goede stan- 
daards waren. Zo kan een Apple geen 
schijfjes van een Commodore lezen. laat 
staan dat ze elkaars programma's kunnen 
draaien. Ook hadden de eerste computers 
nun beperkingen, ook wat snelheid be- 
treft: 6502 's op 1 MHz, de TRS-80 met Z- 
80 op 4 MHz (ongeveer even snel dus!). 

Een bedrijf met de naam Digital Re- 
search had inmiddels een operating sys- 
tem ontwikkeld voor de 8080. Het heette 
CP/M hetgeen betekent: Control Program 
for Microcomputer. CP/M was zodanig op- 
gezet, dat het nagenoeg onaf hankelijk 
was van de hardware. Deze af hankelijk- 
heid werd opgelost in een inter facepro- 

framma, dat in CP/M het BIOS, of Basic 
nput/Output System heet. De rest van 
CP/M is voor alle computers gelijk. Dit 
gaf een mogelijkheid om programma's te 
kunnen uitwisselen tussen apparaten van 
verschillende merken, die echter wel 
allemaal CP/M draaiden. 

Het gevolg laat zich raden, CP/M ma- 
chines, vooral die met een Z-80 werden 
razend populair, vooral in de USA. De 
ontwikkeling van de 64 kbit DRAM maakte 
de droom helemaal waar. Een Z-80 kan 
DRAMs refreshen zonder hulpschakelingen : 
de machines kregen eenvoudig 64k RAM. 
Het bootROM werd na booten uit de me- 
morymap geschakeld zodat er echt 64k RAM 
beschikbaar was: in de meeste implemen- 
taties blijft er dan na het laden van 
CP/M zelf zo'n 48k over. 

De populariteit van CP/M werd nog 
versterkt door het feit dat er tekstver- 
werkers en databases verschenen. Sommige 
waren zo goed en/of werden zo populair, 
dat ze vandaag de dag nog gebruikt wor- 
den. Voorbeelden zijn de WordStar tekst- 
verwerker (eigenlijk een uit de hand ge- 
lopen ASCI I -editor) en de Dbase II data- 
base manager. 
Vanaf het begin vroegen de kenners zich 
af wanneer de mainf ramegigant IBM zich 
met de micro's ging bemoeien. Het bleef 
(leek het) lang stil in het IBM-kamp. 
Maar in het begin van de jaren tachtig 
gebeurde het toch 

1.2. De IBM-PC komt! 

IBM noemde zijn eerste microcomputer 
eenvoudigweg Personal Computer, of afge- 
kort PC. Er was niets revolutionairs aan 
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het apparaat te onderscheiden, op 1 
ding na: er zat een relatief nieuwe CPU 
van Intel in, de 8088. 

De oer-PC was voorzien van BASIC in 
ROM, een volwaardig toetsenbord en een 
cassette inter face. De koper kon kiezen 
uit een groen/zwartscherm voor tekst- 
weergave, of een kleurenscherm dat ook 

frafische afbeeldingen kon produceren. 
r zat 64k RAM in de PC. 
IBM had goed nagedacht. De PC was van- 
af het begin zodanig opgezet, dat het 
apparaat kon worden uitgebreid. Men 
leende het slot-idee van Apple bijvoor- 
beeld. Ook kon er meer RAM in, indien 
nodig: de 8088 kan tenslotte 1 Mbyte 
adresseren. Schijfjes waren ook moge- 
lijk: in het begin ging daar wel 160 
kbyte op! Ook de CPU, toen nieuw, was 
slim gekozen: het is de eenvoudigste 
van een hele reeks opwaarts compatibele 

frocessoren die Intel ontwikkeld heeft. 
BM kon dus alle kan ten op. 
Ook in software. Een PC met diskdrives 
(nog geen harddisk) kon je met drie 
verschillende operating systems bestel- 
len. Het eerste was het in universi- 
teitskringen redelijk ingeburgerde 
USCD. Niemand kocht het. Van het tweede 
operating system had men de meeste ver- 
wachtingen: CP/M-86K, een variant op 
het op Z-80 machines immens populaire 
CP/M, toegespitst op de 8088/8086 pro- 
cessoren. Niemand kocht het. IBM bood 
nog een derde operating system aan waar 
nog niemand van gehoord had: PC-DOS. 
Het copyright statement vermeldde de 
naam Microsoft. Microsoft, zeer bekend 
van haar BASIC- interpreters, de Macro- 
80 assembler en een rijtje compilers 
voor C, BASIC en PASCAL (alle onder 
CP/M) had het operating system gekocht 
van een klein bedrijf je in Seattle. IBM 
implementeerde het op haar PC en noemde 
het PC-DOS, Microsoft behield zich het 
recht voor het ook aan anderen te 
verkopen onder de naam MS-DOS. 

PC-DOS, of MS-DOS zo u wilt, werd een- 
voudig de standaard op de PC. Niemand 
weet precies waarom. Het vermoeden be- 
staat dat de naam Microsoft vertrouwen 
inboezemde, gekoppeld aan IBM kon dat 
vertrouwen met meer stuk. De PC werd 
gigantisch populair: er stond IBM op en 
je kon er alle kanten mee op. Al spoe- 
dig werd de roep om meer gehoord. IBM 
bracht een versie uit met 256k RAM 
standaard en een 10 of 20 Mbyte Win- 
chester drive. Deze machine droeg de 
naam Personal Computer Extended, of 
afgekort PC/XT. Het werd de standaard 
voor de jaren tachtig. De vraag was 
groter dan het aanbod. En dus kwamen 
er : 

1.3, Klrmen en coroat ibles . 

Als iemand met een product succes 
heeft, dan komt er al gauw iemand bij, 
die een product gaat maken dat er wel 
op lijkt, maar dat toch voldoende an- 
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ders is dan het oorspronkelijke. Zo ge- 
schiedde ook met de PC en de PC/XT. 

Als je product van IBM koopt moet je 
eerst wennen aan de documentatie. Die is 
namelijk erg compleet. De Technical Re- 
ference Manual bijvoorbeeld bevat zoveel 
detail inf ormatie, dat je een PC zo kunt 
nabouwen. En dat gebeurde dan ook. Eerst 
in de Verenigde Staten. Daar hebben ze 
op copyrightgebied een beruchte wetge- 
ving, dus zoiets moet je netjes aanpak- 
ken. Er verschenen na verloop van tijd 
een groot aantal machines die allemaal 
MS-DOS konden draaien en die allemaal op 
de IBM-PC leken. En in dat lijken zit nu 
de clou: ze zijn een ietsje anders. Zo- 
lang de software maar netjes van het DOS 
gebruik maakt, is er niets aan de hand. 
Wordt het echter machinespecif iek dan 
strandt het schip: de machine is niet 
helemaal compatibel. Deze klasse van ma- 
chines worden dan ook de (bijna) compa- 
tibles genoemd. Ze zijn vaak redelijk 
goed gelijk aan de IBM-PC maar voldoende 
anders om IBM niet de kans op een suc- 
cesvol proces te geven. Er zelfs een 
tijd geweest waarin de mate van compa- 
tibiliteit werd uitgedrukt in procenten 
(hoe doe je zoiets??). De meestgebruikte 
tests war en de Microsoft Flight Simula- 
tor en Lotus 1-2-3, die beide recht- 
streeks de machine aanspraken, langs het 
DOS en soms zelfs langs het BIOS heen. 
Draaide de compatible deze programma's 
dan was hij 'compatible', anders waar- 
deloos. 

Er zijn echter in de wereld ook landen 
waar men het niet zo nauw neemt met het 
copyright. Je zou zeggen in Nederland, 
maar dat valt mee. Landen als Taiwan en 
Korea erkennen namelijk het Amerikaanse 
recht niet, dus ook niet het copyright. 
En dankzij de uitstekende IBM documen- 
tatie kom het gebeuren dat er 1 op 1 
kopieen van de PC en de PC/XT uit die 
landen verschenen: alle onderdelen, tot 
en met laatste schroefje zijn uitwissel- 
baar. De printen en de IC-nummering 
daarop zijn bij sommige machines exact 
gelijk aan de IBM originelen! Dergelijke 
apparaten konden dankzij het lage loon- 
peil in het verre oosten voor een be- 
langrijk lager e prijs worden verkocht 
dan IBM's ofriciele produkten, met als 
verschil: geen ondersteuning bij moei- 
lijkheden. Deze klasse van machines wor- 
den klonen genoemd. Klonen zijn automa- 
tisch 100% compatibel: het zijn gewoon 
kopieen van het origineel. Door in een 
kloon een IBM-ROMset te plaatsen kri 
je de super-kloon: alles dat op een 
of PC/XT draait, draait ook op de super- 
kloon . 

In de klonen- en compatibleswereld is 
een hele ontwikkeling geweest. Het re- 
sultaat is, dat vrijwel alle klonen en 
compatibles op hogere kloksnelheden lo- 
pen dan hun voorbeelden. Ook hebben de 
fabrikanten inmiddels geleerd een 100% 
compatible BIOS te schrijven dat voor 
IBM geen aanleiding is tot het star ten 
van processen. Het netto resultaat is, 



dat de kloon en de compatible inmiddels 
een volwassen product zijn geworden, 
waar ook grote bedrijven zoals Philips 
mee op de markt verschijnen. Compatibi- 
liteitsproblemen komen vrijwei niet 
meer voor, terwijl de prijzen tot op 
het bot zijn gedaald: ook u lezer, 
heeft waarschijnlijk wel via het zo- 
veelste PC-prive-project een kloon in 
huis staan, en anders wel op uw werk. 
De PC is alom: iedereen doet het 
erop. . . 

1.4. Verd ere ontwikkelingen. 

IBM zat intussen niet stil en ontwik- 
kelde een machine met de krachtiger 
80286 processor. In tegenstelling tot 
de 8088 die een 8-bit databus heeft, is 
de 80286 een 16-bit CPU (de mensen die 
een 8088 een 16-bitter noemen hebben 
het bij het verkeerde eind: een 16-bit 
8088 heet namelijk 8086). De kloksnel- 
heid van de PC en de PC/XT lag niet 
bijster hoog: 4.77 MHz. Dit werd in de 
80286 machine hoger: 6 MHz. Verder wer- 
den technisch gesproken alle zeilen 
bijgezet om zo hoog mogelijke presta- 
ties te halen binnen de mogelijkheden 
van toen: zo kreeg het apparaat 2 DMA 
controllers, een uitgebreide interrupt- 
structuur en slots die 16-bit breed, en 
toch PC(/XT) compatibel waren. IBM vond 
dat de machine geavanceerd was en doop- 
te hem Personal Computer, Advanced 
Technology, of afgekort PC/AT. Ook deze 
PC is inmiddels zeer uitgebreid ge- 
kloond. De AT-compatibles en -klonen 
zijn in het bedrijfsleven wereldwijd zo 
populair, dat zij de standaardmachine 
van dit moment vormen. De aantallen 
zijn zo groot, dat IBM met haar nieuw- 
ste reeks machines nauwelijks voet aan 
de grond krijgt: men koopt liever een 
AT-kloon, want die is compatibel met de 
andere machines op het kantoor en nog 
goedkoper ook. Door de hoge kloksnel- 
heden (16 MHz is al redelijk normaal) 

feven de prestaties ook geen reden tot 
lachten . 

De PC/AT, of nog korter AT, is in 
ieder opzicht opwaarts compatibel met 
de PC(/XT) reeks: het apparaat accep- 
teert de meeste I/O kaarten van de XT, 
gebruikt hetzelfde DOS, en heeft de- 
zelfde aansluitingen. Slechts de toet- 
zijn niet uitwisselbaar . De 
5 processor staat dit alles niet in 
de weg: de instruct ieset is een super- 
set van die van de 8088 en de CPU kan 
in twee modes gebruikt worden: 8088 
mode (of real address mode) of in vir- 
tual mode. In de laatste mode kan de 
80286 16 Mbyte adresseren. 



1.5. In deal 2. 
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Inmiddels hebben we het over CPU's. In 
deel 2 daarom een beschrijving van de 
8088, het hart van de meeste XT klonen 
en compatibles. 
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